


















                        
                                

                                     

                             

























                                      1991









































































                                                        3
                                   .


     .

      -    -
,     () ,        
   .
    1     ,   
 ,  , ,     -
.
     2         -
.
    3     .
     4         ,  
, ,    .
     5     -,  
 -.
    6        ,
   -.
    7    .
    8         .
    9    .
    10    .





































      4                          
               1.     .


      1.     .

             -
,         
         -
 .
           -
:
      1)       - .  
           ,     ,  
           .  ,       ,
                   ,  
             .    ,  -
          ,          
          .    , -
               .
      2)            -
         .               (   
         "B-")        .
                   
          ,       -
         .           
         .
      3)     "" .   -
              ,       -
                 
         .
      4)     ,      
             -   
            .      -
               -      
          -,     ,  -
           .       -
             10.
    ,  ,  ,    -
,   [1].






















                                                        5
                        2.  .


      2.  .

       4, 1420, 1600, 1630, -3.2  -4.
              
    .
          .




















































      6                          
                         3.   .


      3.   .

                 -
.


     3.1.  .

              ,  
   ,   ,    .
    ,      -
.
      ,       -
:
      1)    ;
      2) .
        ,    -
 .         -
, ,         ,   -
   .


     3.1.1.  .

      ,    
  .    .
          .
        :
  -       ,       
      ;
  - ( )               
             ;
  - ()   ,        -
          .        -
             "\";
2 -     (ESCARE)   ,  -
          ;
  - ( )        
      ,    .
             .  
,   :
      - , CTRL;
      - CR, RETURN;
      - DEL, DELETE, RUBOUT;
   2  - ALT MODE, ESC(SEL), ESCAPE, SEND;
      - , TAB;


     3.1.2.  .

     -   ,    -
     .      
  "^"  .      -
.         :
/B -     -.      -
           /B,   .    ZBREAK ON  

        BREAK;
                                                        7
                         3.   .


/C -  ,     <INRPT>.    -
         ,      ,    
        . /C         ,
                -
       ;
/D -         /D,    
               XDT  (    
          ).       -
         G.    XDT    [3];
/I -    <>;
/M -    <>;
/N -      ;
/O -      ;
/P -      ,    
        ,         .  
             Z;
/Q -    ,   /S;
/R -     ,       -
       .        ;
/S -       /Q.
/U -    ;
/Y -        <ABORT>      
       .


     3.2.    .

   ,        , -
 .          
         -
  ,   <>  /C,      
    .    
 :
 <>
  3.3  #N :
 N -    .
             30  ,  
 :
   -   
   .            
.
              
:
      1)    - ;
      2)    ( );
      3)    -    ;
      4)   (   ) ( ).


     3.2.1.   .

     30          .
,        ,   -
  (),       .




      8                          
                         3.   .


          .
             
     .


     3.2.2.   .

    ,    ,       
  S0,     ,    .
          .
     AAA,BBB:SYS
      AAA - , BBB -   , SYS - .


     3.2.3.   .

            
 ().          -
  ,  .


     3.2.4.  .

     -  ,   ,   -
   ,       
.
          . :
      MGR:SYS:12
      MGR:SYS:12288
.


     3.2.5.    .

       :
      1)        ;
      2)          -
         .   :   ;
      3)      ;
      4)  -,     OPEN    USE,  
         -   .
         :
      1)  ;
      2)  .
                
.
          ,  ,  ,
   .


     3.2.6.      .

         ,    
  ,  ":",       -
  -  ":"   .     -
      ,   ,   

   .      -
                                                        9
                         3.   .


 ,          ,  
  .
    ,          ,  
 <>,           ,  
<>  /C.
       ,    . -
   .
          .
     -3.3   4 : ARG:DATA:8192<>
                
       DATA.
          .
            .


     3.2.7.      .

             
  ,  ":"     .  -
,        "DEM"
  :
   <>
   -3.3   4 : DEM,RAB:SYS<>
   >
               ">".  
 ,        ,  ,
    .


     3.2.8.      .

         -
  .      -
       .  
     <>,     
      ,  <>  /C.


     3.2.9.   .   .

            -
,    .      -    
     .      -
 ,           -
 .
          ,  
   DH  DZ.          
       MUX, 
  [4].
            ,  
,    <>.     -
  <>          1-2  ,
:
   <>
   <>



     10                          
                         3.   .


      :
   -3.3   4 :
         .


     3.3.   .

          .
      1)      , ..   -
             ,    HALT        
          :
            >HALT<>
            ""   .
                   .
                  HALT,   
              .
      2)          -
            BREAK 1   /C,    
         /C,   <INRPT>.         
           ,         .
         (  BREAK . [2]).
      3)           -
           /C,    ,   
              QUIT  HALT.    
              ""    
         .
          .
       ,    ,     
     .





























                                                       11
               4.    .


      4.    .

     ,        -
 ,     ,      
 .  ,    :
      1)  ;
      2)  ;
      3)    ;
      4)    ;
      5)     ;
      6)  ;
      7)    ;
      8) ;
      9)  ;
      10)  .
           -
    , . [2].


     4.1.       .

               
     .       -
      .


     4.1.1.   .

           ,  -
    ,  . ,   -
   ,   "Z",      
. ,    "Z",       
. ,    :
   >GOTO PARA
   >G PARA


     4.1.2.     .

            ,  
,     .      (    
)     .
       ,       -
   :
  -  ,   ;
    -     ,    
                      .        -
                     ,     .      
                           READ;
        -  '  ,     -
                      .    ";".  
                           .






     12                          
               4.    .


     4.1.3.   .

   ,    ,   .    -
     /    <>.
        :
      1)  ;
      2)  .
           .   -
   <>,         
 .
          , :
   >DO START
   >ZINSERT "TITLE ;  ":+0
            "@",   
     ^%C,      
%1 ,    "@"  <>.
         ,   <>  
  <>,     .   <> 
          .
  :
   OUTPUT<> F I=1:1:6 W ?20,"1",?25,B(0),!! <>S A(1)="W $C(27,89,35,42),S,EL
R B(I)" B7<>S Z="" W Z ; 
     ,      , 
.    , ,       DO,
       ,      
,       ,    GOTO,  
   .
            ,  -
: O 3   U 3  ZP   C 3
           .


     4.2.  .

        :
      1)     ,    ,  -
           ,  () ;
      2)  ,        .  
                  .    
              .     
           .


     4.2.1.  .

         ,     -
            -
 .         
 .
            -
  ">".    , :
   >WRITE ""
   





                                                       13
               4.    .


     4.2.2.     .

      ,         
.        .
        <>          
,    .     -
   .       -
.
   >START<>WRITE "  2",!
   ><>SET X=1
   ><>FOR I=1:1:10 SET X=X*2 WRITE X," "
       ,      
  10   2.      -
 DO         :
>DO START
        :
     2 2 4 8 16 32 64 128 256 512 1024
       <>      <>,        
 .  DO    .


     4.2.3.   ZPRINT  ZREMOVE.

                ZPRINT.
 ZPRINT   (  )   .
      ZPRINT        ,    
        .
    ZREMOVE    .    ZREMOVE
     ,       -
.     ( ),  ,    
      .
        ZREMOVE,       ,
 <>    <>:
   >ZREMOVE STPRT
   >START<>WRITE "  2"
        ,     
   ,         ,  
 ZPRINT,    ,    :
   >ZPRINT START
   START WRITE "  2"
   ><>WRITE !," 1  10"
          (,     
),   ZPRINT +0,        
 ,    .


     4.3.    .

         ,    -
   .  ,      
     .







     14                          
               4.    .


     4.3.1.     .

    ZSAVE  ,        
,    .
     ZSAVE - ,     .
>ZSAVE ABC
       ,           
.    DO   ,   :
>DO ^ABC
       ZSAVE   ,      
 <NOPGM>.
    ,    ,    , 
               
.  ,       ,  -
  $TEXT(+0)     $ZN.


     4.3.2.     .

           ZLOAD 
    .
    ZLOAD    .
           ,    DO:
>DO ^ABC


     4.4.    .

    ZREMOVE     .       
 ZREMOVE    ,    
,   .


     4.4.1.  ,   .

     ,      ,    
  ZREMOVE    ,     ZSAVE  
 ,  ,    ,  -
        ,        .
,      BOOKSTAT   :
   >ZREMOVE
   >ZSAVE BOOKSTAT


     4.4.2.  .

     ,   ,   
   :
      1)   ZLOAD     ;
      2)   ZSAVE         
            .
           ,    
   .       -
 ,    .       
BOOKSTAT  BKCHK     :



                                                       15
               4.    .


   >ZL BOOKSTAT
   >ZS BKCHK
   >ZR
   >ZS BOOKSTAT


     4.5.     .

            
 .     %RS (  )
 %RR ( )   /   -
 .
          .
           DO .
          ,  -
        .


     4.5.1.     .

           :
      1)   OPEN  ;
      2)   USE   ;
      3)   ZPRINT       
         :
   >O 59:(0:1600:"DW0") U 59 ZP  W !  59
        0  1600      DW0
    .          59-
 .


     4.5.2.     .

           -
 :
      1)   OPEN  ;
      2)   USE   ;
      3)   ZLOAD        
          .
   ZLAD        ,      
   .
   >O 59:(0:1600:"DW0") U 59 ZL
    ,         ,      
(     ),       ZLOAD,
  .    ZLOAD      
  .


     4.6.  .

          :
      1)    ;
      2)   (^%TEED);
      3)   (^%Z);
      4)    (^%GBANK).



     16                          
               4.    .


    ,       -
   , , .


     4.6.1.    .

       ,    -
:
      1) ZINSERT;
      2) ZREMOVE.
             -
 .
   ZINSERT       ,    -
 .
   ZREMOVE       . ZREMOVE  -
   .


     4.6.2.  .

           ^%TEED.   
       <2>/    ^%TEED
     ^%Z


     4.6.3.  .

            ^%Z.    
        <2>/
               
    .


     4.6.4.    .

       :
      1)  ;
      2)  ;
      3)    ;
      4)  ;
      5)  ;
      6)    .
             -
  .  ,      ,  
  "DO PR^%TE02H".      -
.
          ,     ,
     (, <2><_>).
        .
         :           
.         ,  ..    
      .        
   ,     .    
   /W.
         /Y.



                                                       17
               4.    .


     4.6.4.1.  .

      ,     ,  , 
.        .  
  :
< > -   ;
< >  -   ;
< >   -   ;
< >  -   ;
<>             -     ,
<>             -    ,
<>             -       ,
<>             -   ,
<2>G           -       ,
<>/           -       ,
<4>            -       ,
<>/^           -  .  : "  ?"    :
                    <> -   , # -   , N -  
                     N ;
<>/_           -  .  : "   ?"    :
                    <> -   , # -   , N  -  
                     N ;
<>/T           - ,  ;
<2>           -      .


     4.6.4.2.  .

      :
<>/S  -  ;
<>/\  -  ;
<>    -   ;
<>/V  -    ;
<>/R  -   ;
<2>   -       ;
<3>   -    <>/B  ;
<>/L  -       ;
<>/E  -       ,   <>/B,    
            :   "" -    ,  
           "" - ;
<>/P  -  ;
<>/C  -      ,   <>/B,    -
          ;
<2>U  - '    :     ""  
               , ,   
          "" -  (  ),      
          ;
<2>Y  -        ;
<>/D  -  ;
<2>L  -        ,   <>/B  
          ;
<2>>   -            (-
           - ,  - ),      -
          ,      .




     18                          
               4.    .


     4.6.4.3.  , .

           : 
     .       ,
      .
                  
 ("SAVE"-),   :
      1)      <>/B;
      2)       ;
      3)           "SAVE"-,    
         <2>>.    "== SAVE :"       -
         .
      "SAVE"-       ,  
 <2>=     "== SAVE :"   .
    "SAVE"-      .  
,           -
.
            ,  ,
      .     
<>/B              .
  <>/X   .
        <>/Z.        
""     ,   "" -
      .


     4.6.4.4.  .

                -
.
          '  :    <>/F,  
   "==  ? <> :"   .
     .     -    :  ^  -
, _ - .  '     ,          
  .
              -
   <>/Q.


     4.6.4.5.   .

            .
         (  )  
  <>/B.           
   <2><>.         ,
  .
         .      
  <2>_.
         :
      1)      ;
      2)        ;
      3)   60 .
           (    -
)  :
      1)       <2>( ;



                                                       19
               4.    .


      2)       <2>) ;
      3)             <2>. .
         (          
            ).
    <2>^   ,     <2><TAB>  -
  .


     4.7.    .

        ,     
  ,  ,      .    
         -
.


     4.7.1.     .

     ,        ,  
 DO  GOTO:
   >DO PARA+3
   >GOTO PARA+3
PARA+3 -  ,    +  .    
,    ,    PARA+3.


     4.7.2.  .

           DO    .
 -     ,    .  
   "^".
      TRACE        
:
   >DO ^TRACE
           ,   -
  :
   >DO GG+1^TRACE


     4.7.3.   .

          -
.         .
          :
      1)  HALT -   ;
      2)  QUIT  ZQUIT -   ,    -
          QUIT  ZQUIT   ( )  ;
      3)  BREAK   ;
      4)        
          ,     ,    
           ;
      5) /C -   /C ,     <INRPT>
            ,   .
          :
      1)  HALT -   ;



     20                          
               4.    .


      2)  QUIT  ZQUIT -     QUIT    ZQUIT
           ( )  ,        
         ;
      3)  BREAK -  ,    .  -
          ,       ,      
         <BREAK>;
      4) /Y         -
          .   <ABORT>;
      5) /B      .     
          /B   -     -
         ,    .       
           <ERR>,          
             (DB>);
      6)      $ZTRAP    .
            ,       -
                  ;
      7) /C   <INRPT>    ,   .


     4.7.4.    .

              
/C,   /Y,  .
     ,   BREAK,    
 /C.
       (>)     /Y.  -
 /Y   <ABORT>.
    /C  ,    <INRPT>. -
 /C     ,     -
   ,   $ZTRAP  .
 ,  /C,        
,       .


     4.7.5.   /C.

    BREAK          
/C:
B 1 -   /C;
B 0 -   /C.
         /C  ,  
     BREAK 1,    -
 /C   .
      /C  .
    ,   /C ,   
 . ,       
     .      BREAK  0
        SET  -
  .
           ,
 ,    /C.      USE
   (USE 0),      15 
   $ZA.
        15  $ZA.      
/C,     ,  BREAK 0,       
      .


                                                       21
               4.    .


     4.7.6.   .

       (SYSGEN)    -
   (. [4]).     /C .  
      .    
    , , ,  
 USE.    ,        
.
          
     -7  3  (/C).      
        
 -7 ( 0  31). ,   " "   
 26 (),      /Z.
      ,  BREAK.   -
    BREAK,      0.
               
 /C.
      ,      ,  
.     ,    /M,  
 <>.


     4.8.  -.

   - - ,        
   .      XDT (.
[3]).
               
     .       -
,   ,        
  .        -
.
           :
      1)   /B    ,     -
              ,   
         ;
      2)   BREAK  ,       BREAK
            ,       -
         ,       ;
      3)     (  9),      
         $ZBREAK,       ;
      4)     ZGO    .
                .
 . [2].


     4.8.1.     .

     ZBREAK    ,      
 .   ,     -
    $ZBREAK   BREAK.
       ,     :
>ZBREAK ON
D>
         ZB ON.  (D>) ,  -
 .


     22                          
               4.    .


       BREAK       ,  
    :
>ZBREAK OFF
>
    (>) ,         
.    ,    /B.
    ZBREAK ON  ZBREAK OFF    .  -
          -
  ,     .


     4.8.2.  .

        .     -
  ,   BREAK.
         $ZBREAK(1)  $ZBREAK(9).
               ,  
  :
<BREAK> _:_:_
DB>
    "_"  "_"     -
,    .   DB>  ,    
    (B)    (D).
    "_" -     ,   
   .  "_" -    
 .


     4.8.2.1.      $ZBREAK.

          ,    
 SET      $ZBREAK        (
, ,    $ZBREAK,    
 BREAK).   $ZBREAK           
 :
   SET $ZBREAK="_:_"
   "_"       :
   +^
         .    
    ,    ,   
  .
   "_"    ,     -
.       ,   .
          , 
 .      ,     9  
   .
            $ZBREAK
   :
SET $ZBREAK(N)="_:_"
 N    1  9.


     4.8.2.2.     BREAK.

         ,        
BREAK  .


                                                       23
               4.    .


    BREAK       .  ,  
   ,   M  30:
BREAK:M<30
     BREAK        ZBREAK,  
 ZBREAK (. [2]).


     4.8.2.3.    .

         -        ,
 ,    .   -
      $ZBREAK       
:
SET $ZBREAK(N)="_:_>"
    ""         .  
 ,           
BREAK.
      "",        
  . ,         
  .       ,    DO,
GOTO, ZBREAK  ZGO.
        $ZBREAK        ,
          .  
 $ZBREAK(0) -   ,    .
      ,        .  
     "_"  "_".


     4.8.2.4.   .

            -
:
ZWRITE $ZBREAK
               
WRITE    :
WRITE $ZBREAK(N)
      ,    :
$ZB($)="START+1^TEST:3>W A"


     4.8.2.5.   .

       ,          
:
SET $ZBREAK(N)=""
         :
KILL $ZBREAK
         (128   ),      
     ILL $ZBREAK.


     4.8.3.     .

             ZGO  ZBREAK.
    ZGO (ZG)         -
.             

.
     24                          
               4.    .


              
 ZBREAK:
ZBREAK OVER -    ZBREAK   DO   XECUTE    -
               ,    ,   .  
                     ,    -
                  ,    DO  XECUTE 
               "" ;
ZBREAK IN  <> -    ZBREAK      
               ,          -
                <BREAK>;
ZBREAK OUT  -     ZBREAK        
                ,      QUIT    
               .  ZBREAK OUT  ,      
                   ZBREAK IN,        
               ,        -
                 .
                 
 .  ZGO   .    
  ZGO     ,       -  
 :
>ZGO ^TEST
<BREAK>TEST+1^TEST:1 SET X=1,Y=50
DB>
     ,       ,  
     ZBREAK.   ,  -
  ZGO    .


     4.9.   .

          :
      1)  ;
      2)  .
                 
   (    ).    ,
       ,     -
 .


     4.9.1.     .

     ZSAVE         -
  , :
   >ZS XTR
            
 .  ,     -
 ,      ,   ,
     ,     -
 .
              %RD.  
       ,     -
   .






                                                       25
               4.    .


     4.9.2.    .

         ,   
.       ( 6).  
,   .      ,  
   .
        ,    -
    SET,       -
    .      -
   ,   KILL.
   ,       (    '),
      ,     -
      .  ,  -
  ,      '.  
          -
.     ,      -
,    '    .
           
%GD.           ,
     .


     4.9.3.   .

        ,        
 .        -
:
   SYSTEM () - ,         
 ( 1  S0);
   USER () - ,         ,  
   ;
   GROUP () - ,           '  
 ,      ;
   WORLD ( ) - ,        '
          .
              
:
   READ () -    ;
   WRITE () -    ;
   DELETE () -    .
           READ/WRITE/DELETE
(//)   SYSTEM ()  USER (), 
   GROUP ()  WORLD ( ).
          (%GLOMAN)    
  .         -
         .    
:
      1) NO ACCESS -  ;
      2) READ ACCESS -  ;
      3) READ/WRITE ACCESS -    ;
      4) READ/WRITE/DELETE ACCESS -  ,   .
              ,    
   ,        
 .




     26                          
               4.    .


     4.10.  .

            -
 ,        .  
             $ZERROR
    ,     -
.        ( ,   -
    ).
                
$ZTRAP.


     4.10.1.    .

      $ZTRAP     ,    
   .       
  ,      .  -
    :
      1)     $IO     
         - (     );
      2)         -.  
            -     $ZERROR 
           ,    .     
              ,        
          ;
      3)        ,   -
             ,        -
          ,      .


     4.10.2.    .

       $ZTRAP,    ,
      .      
       .
      S     $ZTRAP   -
  .  $ZT (. [2]) -          /
,      .
    $ZTRAP   "LABEL^ROU"   ,    
 :
      1)     $ZERROR ,    
           ,  ,    ,  
          ;
      2)    "ROU"    "LABEL",   -
           $ZTRAP;
      3)        DO  XECUTE.
          ,      ,
   $ZTRAP,         
 .
         $ZERROR    ,
    .        
   ,     DO   XECUTE.  
        .    
"PRG"      "ERR",        
  $ZERROR.



                                                       27
               4.    .


       PRG:
A S $ZTRAP="^ERR"
    .
    . ( )
    .
       ERR:
ERR ; 
    U 0 W !,",   ",$P($P($ZERROR,">",1)
    W "  ",$P($P($ZERROR,"^",2," ",1)
    W "  ",$E($P($ZERROR,">",1)2,99)


     4.10.3.    .

            -
 ,      ,  
 :
      1) %ET   ,        
          %ET: S $ZT="^%ET"            
              %ER  -
               ;
      2) %ER  .  %ER      -
                  ,
              .      -
                "    -
         " ("CARETAKER")    (^SYS) (. [4]).


     4.10.4.     .

          DO  XECUTE 
    .       -
,        .  
 DO  XECUTE       ( 255)  -
       .  QUIT     
    . ,       ,
 .
      $ZTRAP       
 ,       (      DO).
 ,        -
           
 $ZTRAP ,        -
  .
          ,      ,
   :
      1)             ,
                      $ZERROR;
           $ZRRR;
      2)            $ZT.
           $ZT ,      ,  
               . ,
           NEW, ;
      3)      ,      ,
           $ZT.       GOTO
          ,   $ZT,  $ZT    ;



     28                          
               4.    .


      4)           -
         ,             
          $ZTRAP,    ,      
           .
     '       
   $ZTRAP:
      1)  D (  $ZTRAP);
      2)  C (   DO       D)
          $ZTRAP  "^CERR";
      3)  B  $ZTRAP  "^BERR" (   DO  
           C);
      4)  A  $ZTRAP  "^AERR" (   DO  
           B).
        D (   ,     
),    CERR      
  ,   DO       D,
     .     
C,          CERR    
 .            ,
       ,        
$ZTRAP    "^CERR".


     4.10.5.     .

          ,    
       : QUIT, GOTO, ZQUIT.
          QUIT    
,   ,          
  .  ,   D,    -
 C,  ,         ^CERR,
  QUIT   ^CERR       -
 B,     DO ^C.
    ZQUIT           
   ,      ,
    , '    ,  -
   $ZR.
      $ZTRAP   ZQUIT    ,  
 '      ,    
  ,        -
,             
      ,        -
.
           -
 GOTO.           
              
.
           ,   
   ZQUIT.           
   ,      ,  
      $ZTRAP.  ,    
   D,     ^CERR      
 ,  ZQUIT    ^BERR     -
 C   .    ^BERR        
,  ZQUIT    ^AERR         
 .    '    

 ZQUIT,      ,    
                                                       29
               4.    .


     .

























































     30                          
                  5.   -.


      5.   -.

          -.    
    ,   ,   -
 .    ,   -
        .
        ,    
       .  ,
 ,       -  
   - ,    ,   
  ,       OPEN    
     .     -
      .
            -
,         - 
      .  ,    
 - ,    USE    -
   .
    ,     -  ,    
  ,            
.          ,
  ,   255 ,     
  .
      -   ,  
 CLOSE        .  
CLOSE        -
.


     5.1.   -.

        -   .
    .   1    -
  -   .


     5.2.   -.

     $IO     .    
        .   
  ,         
     $IO.      -
 ( ,        0  
   ).           
 $IO   ,           
  USE.
    ,      , 
 ,    OPEN.     
      -.
    OPEN  ,         .
 OPEN         -
      ,   .
    USE  ,        OPEN,
             $IO.  
    -  ,   -
    .       

   ,      USE,      -
                                                       31
                  5.   -.



                                         1.
------------------------------------------------------------
!  !                                        !
!-------+--------------------------------------------------!
!   1   ! K .                             !
!   2   !  .                             !
!  3-19 !    . !
! 20-46 !     NN 1-27.      !
! 47-50 !     NN 0-3.            !
! 51-58 !    .       !
! 59-62 !     0-3.!
!  63   !   VIEW (  ).         !
! 64-191!     (  !
!       !   ,   -!
!       !  ,    ,!
!       !    )!
!192-199!    .       !
!200-223!     NN 28-51.     !
!224-255!      - !
!       !    NN 0-15,     !
!       !  ,        !
!       !     1 .               !
------------------------------------------------------------

  .   $ZA $ZA   -
,      USE.
          .
       3, 4  5,      -
     -     5.   5 -
       .
     > 3,4,5 U 5
          .
      OPEN  USE      ,    
       .
       ,   CLOSE   ,  
 ,      
.
          .
       3,    -,    
      3 .    ""      
      3,     .
     > 3 U 3 W "" C 3
           -   
,      . ,      
  HALT,          -
,             
 ,    ,      -
.                
 ,   .


     5.3.  -.

             :  READ,  WRITE,
ZLOAD, ZPRINT, ZWRITE.


     32                          
                  5.   -.


             ,    
      .      ,  
   ,  -  ,      
 READ   .
    READ           
.   READ       -
        .   -
   READ   .
    WRITE        -
 .  WRITE         
   -,    
  -7.  WRITE    ,  
    (*).     -
 .     WRITE         
 ,   -.
          .
           1)  ,      ,  
               : WRITE *7
           2)  ,       ,
                : WRITE *10
           3)  ,       0,
                : O 47 U 47 W *5
    ZLOAD      .    
 ,       ,   ,
        '.    
 ,  ZLOAD     .
    ZPRINT           
    .
    ZWRITE        
   (     ).


     5.4.  .

        ,      ,
 :
      1)   ;
      2)  OPEN  USE;
      3)   $X  $Y.


     5.4.1.   .

            
   READ  WRITE:
 # -   (  ).          
          ;
 ! -       ;
?N -   :          
         N     (   N  
            ).  -
                    
         ;
               -
,       (   !?3!!! -
 ).


                                                       33
                  5.   -.


          :
           1)    ,      65
              ,  -  "",  -  
               PAG (    )    -
               -        
              :
                 >WRITE ##?65," ",PAG,!
           2)          (-
                      -
                ),        -
                   "A":
                 >WRITE !!,*7,*7,"A"
      (?)      -
  .           ,  
             
 ,     . :
   >WRITE ?10,"A",?10,"H"
   /10 /AH ,    /10 /A/10 /H
       :
   >WRITE ?10,"A",?21,"H"
     .
      ,       -
,           -
     (?N),       
 , :
>SET A=17
>WRITE A,?6,""
17 
      :
>SET A=""
>WRITE A,?6,""
     :

    ,   ,    , : 
 "?"   ""      -
 ,         -
,    .  ,       
    :
>W "  ""?""   """""


     5.4.2.   $X  Y.

     $X  $Y   :
$X -    ,       --
        ,           
      .   $X     
       (,  W *7     ).
          $X  255,   -
           ;
$Y -       ,     
       -      ( -
       ).     $Y    255,  
            .
       $X  $Y . [2].



     34                          
                  5.   -.


     5.5.   -.

     -   ,     -
 :
      1) ,     ;
      2) ,        ,  -
           $ZTRAP  ,     
          .         ,
           ,         -
            $ZA;
      3) ,         .    
                $ZA.
     -        -
.  ,  ,    ,    
     .











































                                                       35
                 6.   -.


      6.   -.



     6.1. .

          -7209, -2000   .
    17      128    ,
  3     6  
 (  ).       3-19  
  .


     6.1.1.   .

        : 1-19, 64-191 (.  -
 1).
     -  2 -    -
 .
             3  
19.


     6.1.2.  .

    ,    ,   :
       
OPEN                    WRITE   READ
CLOSE                   ZPRINT
USE                     ZWRITE
ZUSE                    PRINT


     6.1.2.1.  OPEN.

    OPEN     :
OPEN[:] :[(1:...:10)][:]
    OPEN    ,    
    10    ,    -
 ,   .         
,          ,  
   USE, CLOSE    OPEN      
  (       
  ).  ,      , -
 ,   , :
O :(:::4)

       (1).

           .  
,     $X (     
 )           
 ,         -
.      ,     -
    MUX,  ,        
OPEN  USE.        -

     .
     36                          
                 6.   -.



        (2).

             -
  .     READ/WRITE,  -
           -
 4. ,     2,    -
  2  255 .

        (3).

           
 (    )   , 
   1  255 .          
 READ.           
  255 .  ,     -
  ,     READ.     -
   READ,   .

        (4).

             
  . ,      
,      2  255 .

       (5).

         -
,     .      
32  ,      2.
          (5)   -
      :
      1)  1 ( );
      2)  3 (  );
      3)  8 ( );
      4)  10 ( );
      5)  11 ( );
      6)  13 ().
    1, 3, 8, 10, 13, 29  30         
 ^MUX (. [4]).  11     .
    9 ()       -
,     ,      -
 (DTR)    .

       (6).

     ,    ,  -
   .       
  ,     .   9 ,  -
 ,  .

       (7).

       $X  $Y     
    ,    . -
,    ,    :

(_Y*256)+_X
                                                       37
                 6.   -.


                                         2
------------------------------------------------------------
!! !                                  !
!---+---------+--------------------------------------------!
! 0 !      ! 0 -   .    !
!   !         ! 1 -  .                       !
!   !         !     0   !
!   !         ! ,      !
!   !         ! .  ,  !
!   !         ! :   5    -!
!   !         !   1 (  /S),    !
!   !         !     (CTK) -  !
!   !         !   0 ,  1,  .!
!   !         !    CTK , !
!   !         !   ( 0   5)  1,  -!
!   !         ! ,   .  !
!   !         !     - !
!   !         !  .                          !
! 1 !   ! 0 -       !
!   !    ! .                                    !
!   !         ! 1 -     -!
!   !         ! .        !
!   !         !    <NODEV>.   !
!   !         !   .                      !
! 2 !      ! 0 -    . !
!   !         !       "\".      !
!   !         ! 1 -  ( -    !
!   !         ! ).   .  !
! 3 !    ! 0 -     .      !
!   !         ! 1 -    .         !
! 4 !  ! 0 -   .                   !
!   !    ! 1 -   .                     !
! 5 ! /S    ! 0 -  /S  .                !
!   !         ! 1 -  /S .    -!
!   !         !     ,  !
!   !         !      /Q.  !
!   !         !      5 - !
!   !         ! ,      !
!   !         !       - !
!   !         ! .                                     !
! 6 !- ! 0 -  ESC-     !
!   !  ESC !   .                               !
!   !         ! 1 -  ESC- -  !
!   !         ! .     ESC   !
!   !         !     READ,   !
!   !         !    ,   !
!   !         !     ESC, "?"  "[".   !
!   !         !   ,    !
!   !         !  16,     64  -!
!   !         !       -!
!   !         !   $ZB   -!
!   !         !    READ.                       !
! 7 ! -! 0 -      !
!   !      ! .                                  !
!   ! ! 1 -    .!
!8  ! -! 0- .                   !

!   ! -! 1- .                   !
     38                          
                 6.   -.


!   ! !   8   -!
!   !         !      .   8 !
!   !         ! ,    /C !
!   !         !   .     !
!   !         !    , - !
!   !         !    ,  -  !
!   !         !   .             !
! 9 !-! 0 -        !
!   !    !    ,    !
!   !         !   ,   -  !
!   !         !  .                           !
!   !         ! 1 -       !
!   !         !  .                              !
!10 ! -! 0 -     - !
!   !  -!  (  ).          !
!   !  ! 1 -    - !
!   !         !  (  ).             !
!11 !  ! 0 -        !
!   !  !    ,    !
!   !         !   ,       !
!   !         ! .                                   !
!   !         ! 1 -   .          !
!12 !! 0 -      - !
!   !         ! .                                     !
!   !         ! 1 -     -!
!   !         !        !
!   !         !  .                       !
!13 !      ! 0 -    .  !
!   !         ! 1 -  .                        !
!14 !  ! 0 -         !
!   !    ! (  -7).                           !
!   !         ! 1 -       !
!   !         !   .   -    !
!   !         ! .                                      !
!15 !-! 1 -    /C  -  !
!   ! - !   .                  !
!   ! -! 0 -     - !
!   !  !  (BREAK 0),   15,  -  !
!   !         !   /C   -  !
!   !         !  .                           !
!16 !      ! 0 -   - !
!   !! .                                  !
!   !         ! 1 -   -- !
!   !         !    . !
!17 !-! 0 -     -  !
!   !   !    .      !
!   !-! 1 -    -  !
!   ! - !    .         !
!   ! -!                                            !
!   !   !                                            !
!18 !    ! 0 -  7-  ( 8 - !
!   !     ! ).                                 !
!   !         ! 1 -  8- .              !
!19 !    ! 0 -    .      !
!   !   ! 1 -       - !
!   !   ! ,     ,  -!

!   !         !   ,  READ . !
                                                       39
                 6.   -.


!   !         !     $ZB   !
!   !         !    127.                !
!20 !    ! 0 -    .         !
!   !    ! 1 -   .            !
!21 !/S,/Q! 0 -  /S, /Q.               !
!   !         ! 1 -    /S, /Q (-!
!   !         !  )    PASS ALL.    !
!22 !! 0 -    !
!   !  ! 1 -     !
!   !         ! , .. /S  /Q  -   !
!   !         !  .                        !
!23 ! ! 0 -    -!
!   !     !   .                   !
!   ! ! 1 -     -!
!   !         !      (. PASS ALL)!
!24 ! ZUS    ! 0 -  ZUSE    -!
!   !         ! .                                    !
!   !         ! 1 -  ZUSE    - !
!   !         ! .                                !
!25 ! -! 0 -     .!
!   ! ! 1 -     .!
!26 !   ! 0 -      R " "    !
!   !   ! .                                  !
!   !   ! 1 -        !
!   !    ! R " ".                                     !
!27 ! -! 0 -   .            !
!   !   ! 1-   <,>  !
!   !   !  , ..  -!
!   !         !   (  15-00-13).    !
!28 !  ! 0 -  .                        !
!   ! ! 1 -  .                         !
!29,!      !     .  !
!30 !!                                            !
!31 !   !   .                      !
------------------------------------------------------------

   7 ( ),        
   $X  $Y  ,     -
 .          ,
       $X  $Y  -
  USE  ZUSE.
          .
      7         .
       $ZMARKER .

        (8).

              
   .   3    4    
          -
 .        -
  .
          .
        DJ11 (-1)  8  .




     40                          
                 6.   -.



                                         3
       
   DH ( 8514)  ( )
------------------------------------------------------------
! !    !                               !
!-----+------------+---------------------------------------!
! 0,1 !       !  1      0                       !
!     !     !   0         0        5           !
!     !            !   0         1        6           !
!     !            !   1         0        7           !
!     !            !   1         1        8           !
! 2   !       ! 0 - 1 -.                       !
!     !-  ! 1 - 2 -      !
!     !            !     6  8 ; 1.5 -    !
!     !            !       5 .            !
! 3   ! . !                                       !
! 4   !    ! 0 -  ; 1 -  .  !
! 5   ! ! 0 -  ; 1 -   .  !
! 6-9 !    !  9   8   7   6    !
!     !      ! 13  12  11  10    ()   !
!10-13!    !   0      0      0      0          0   !
!     !    !   0      0      0      1         50   !
!     !            !   0      0      1      0         75   !
!     !            !   0      0      1      1        110   !
!     !            !   0      1      0      0        134,5 !
!     !            !   0      1      1      0        200   !
!     !            !   0      1      1      1        300   !
!     !            !   1      0      0      0        600   !
!     !            !   1      0      0      1       1200   !
!     !            !   1      0      1      0       1800   !
!     !            !   1      0      1      1       2400   !
!     !            !   1      1      0      0       4800   !
!     !            !   1      1      0      1       9600   !
!     !            !   1      1      1      0         !
!     !            !   1      1      1      1         !
!     !            ! (         !
!     !            !   .                !
! 14  !     ! 0 -  ; 1 - .  !
! 15  ! -   ! 0 -  ; 1 - .      !
------------------------------------------------------------

         (9).

            -
.         ,    
       -7    0  31.
 ,  ,   , -
  ,  ,          
   .         $ZB  
       -7      
.      OPEN,    ESC -
       .
    :(::::::::$C(1,13))
           
/A  .


                                                       41
                 6.   -.



                                                 4
       
     DZ ( 8529) ( )
------------------------------------------------------------
! !    !                               !
!-----+------------+---------------------------------------!
!0,1,2! !                                       !
! 3,4 !       !  4      3                       !
!     !     !   0         0        5           !
!     !            !   0         1        6           !
!     !            !   1         0        7           !
!     !            !   1         1        8           !
! 5   !       ! 0 - 1 -.                       !
!     !-  ! 1 - 2 -      !
!     !            !     6  8 ; 1.5 -    !
!     !            !       5 .            !
! 6   !    ! 0 -  ; 1 -  .  !
! 7   ! ! 0 -  ; 1 -   .  !
! 8-11!    ! 11  10   9   8    !
!     !    !   0      0      0      0         50   !
!     !            !   0      0      0      1         75   !
!     !            !   0      0      1      0        110   !
!     !            !   0      0      1      1        134,5 !
!     !            !   0      1      0      0        150   !
!     !            !   0      1      1      0        600   !
!     !            !   0      1      1      1       1200   !
!     !            !   1      0      0      0       1800   !
!     !            !   1      0      0      1       2000   !
!     !            !   1      0      1      0       2400   !
!     !            !   1      0      1      1       3600   !
!     !            !   1      1      0      0       4800   !
!     !            !   1      1      0      1       7200   !
!     !            !   1      1      1      0       9600   !
!     !            !   1      1      1      1    .!
! 12  !       ! 0 -  ; 1 - .      !
!13-15! . !                                       !
------------------------------------------------------------

         (10).

             
.       ,  
     0  31.  ,   -
  ,     ,    
   <INRPT> (  ) -  , , 
      BREAK 1.      
    $ZB     -
 .
      ,   , -
  /C   ,    .
    :(:::::::::$C(1))
         /A.





     42                          
                 6.   -.


      .

     ,        -
,     ,  ,  
  .       
    ,        
$TEST  0     .      
      ,      
 $TEST   1     .
         OPEN  -
:
   ;O 5:(80:96:10:32:5::3*256+10)
     5   :
      1)             80-
         ;
      2)      96 ;
      3)         10 ;
      4)      32 ;
      5)          
                ,   ;
      6)         ,  
            ;
      7)   $X  $Y   ,   -
               ;
      8)      .


     6.1.2.2.  USE.

     USE      OPEN.  USE
      ,      
OPEN.  ,  USE   ,       ,
  (      $IO  -
   $ZA    ).


     6.1.2.3.  READ.

    READ      .   -
    READ (. [2])    :
      1)     READ   ,    
            :
          1)    ,   ESC,      
              ,    9  OPEN;
          2)   ,    READ;
          3)           
              READ,    (255 ).
                   ,        READ,
              ,   USE,      3.
                    , 
                     READ, -
                 USE    .    
                READ    .     
                  READ     
              $ZB        -7,  
             ,    ,     ;


                                                       43
                 6.   -.


      2)     ESC      -
         ,               ESC-.        
         ESC-   ESC-,    
          .
     6          0,  
ESC-  .          
   READ    ESC        ,
  ESC-.
     6          1,  
ESC- .      - ,
 ESC-,       -
:
      1)   ,    ESC (  
               "?",                      
         ESC-    ). , -
            ESC,  ESC-;
      2)    ESC- 16,     64  
                 $ZB;
      3)  ;
      4)     READ *      ,  
           ,  0.
                    -
              $ZB        ,        ,     
         ESC-    .      
              -  , 
          ESC-,        -
          $ZB   .
                   .
               ESC-,   ,  
                    
               .  ,   , 
                ESC-.
      5)    ,        
         READ,       $ZB.    
         READ     ,     ,
              $ZB   .  
             ESC-,      
          $ZB  ESC-,    .


     6.1.2.4.  WRITE.

    WRITE   /     -
.     . [2].
     WRITE,        .
         VT52  
 VT100.
          .
              
          .
      ,          
,   .         VT52
  VT100:
 10      ;
 27,66   ;



     44                          
                 6.   -.


 27,73     ;
 27,63   ;
 27,67   ;
 8        ();
 13      ;
 27,72     ;
 27,89     (  X+32 Y+32);
 27,75     ;
 27,74     ;
 7        ;
 27,88    ;
 27,61    ;
 27,62     .
          .
         ESC-    
        ,         
     .      ESC- -
         .


     6.1.2.5.  ZUSE.

       ZUSE         USE,  
 ,   ,     -
  OPEN. ( ,           OPEN
 ,       ZUSE.) , 
    ZUSE,      
  ZUSE  USE.


     6.1.3. -   .

      -   -
       .
       4    -.    
   29,30   ($ZA).
            $ZM.
             -
 , $Y (      ),    ,
       WRITE/READ *  ZWRITE *.
       -   READ *    WRITE *
    16   (U 0:(::::65536)).  
      ,      
  (0,6,12,16,23).    16      
   .
    ZWRITE *  -     -
  16.
    ,        -
,  ESC-,       ,
 X ^%Q("*").          -
  (  ),   $ZB.
     5         READ *    
     .
       READ/WRITE *    16  
.



                                                       45
                 6.   -.



                                             5.
---------------------------------------------------------
!  !  !                           !
!-----+-----+-------------------------------------------!
! 31  ! BEG !     .            !
! 30  ! BW  !    .                      !
! 29  ! CLR !   .                           !
! 28  ! DC  !     .              !
! 27  ! DEL !   .                          !
! 26  ! DIV !       .   !
! 25  ! DOWN!      .      !
! 24  ! END !     .                  !
! 23  ! ERL !    .                  !
! 22  ! ERS !    .                  !
! 21  ! FIN !    .        !
! 20  ! FW  !    .                         !
! 19  ! GLU !    .                 !
! 18  ! HOME!   .                           !
! 17  ! I  !     .           !
! 16  ! INL !     .           !
! 15  ! ISW !    /.      !
! 14  ! LEFT!    .                         !
! 13  ! NEXT!      .   !
! 12  ! NL  !    .                 !
! 11  ! PREC!   .                      !
! 10  !RIGHT!    .                        !
!  9  ! TAB !    .                     !
!  8  ! UP  !    .                         !
!  7  ! RST !    .                       !
!  6  ! SAV !    .                     !
!  5  ! IND !    .                  !
!  4  !     !                                     !
!  3  !     !                                     !
!  2  !ABORT!   .                           !
!  1  ! DL  !     .         !
---------------------------------------------------------

     R * :
      1)    -   ,    
             ,        0,  
                $ZB ($ZB\256). -
         ,    :
             DEL    - 1, $ZB\256=0;
             CTRL/S - 17(.), $ZB\256=0;
             CTRL/D - 0, $ZB\256=4;
      2)   ,    ESC-  -  
          ,   ,        ESC
         ( 6),      ESC.  -
           $ZB    ,        
         ESC-.     ,      $ZB  
         +48. ,  :
         " " - 14(), $ZB\256=20;
    W/ZW *     ():




     46                          
                 6.   -.


 29 (CLR)   -  ;
 22 (ERS)   -   ;
 23 (ERL)   -   ;
 3 (RU)     -  ;
 8 (UP)     -  ;
 25 (DOWN)  - ;
 14 (LEFT)  - ;
 10 (RIGHT) - .
         $X,$Y.    -
 ,  32    W *    16,  
 $X,$Y  .
   UP, DOWN, RIGHT, LEFT     .
        - $ZX, $ZY     -
   -   ZM.
   $ZY    .
   R *   $ZX, $ZY.
        16,   "  " (PASS
ALL) ESC-   ,    6.
      -        
  (, 15-00-13),       
 27.    ,        
 ,   $Y  $X.
    -         
 ZM X,Y -      $ZM -  -
 .
       ,   W ^%TVCTL($ZM).
    ^%TVCTL  HELP       -
- .
   X ^%Q("*")    -   (
   ).  -  <>.
      ^AUPATTV           
-      .


     6.1.4.    .

       :
      1)        OPEN,    USE  
          ZUSE,     <SYNTX>, <MXNUM>,  <MINIM>  
         <PARN> ( N -  );
      2)  ,     ,      
         , ,    READ  WRITE,     -
           <NOBUF>.       -
                      
           SYSGEN,      -
             ,     .  
             ,      -
         ,   ;
      3)        -
             OPEN,       
           ,       -
         .    ,    <DSCON>.  -
                -
            ,        -
          .    ,      
           $ZTRAP,      -

             ;
                                                       47
                 6.   -.


      4)      ,    -
               OPEN,        
           ,       <NODEV>.  
                 ZUSE,
                      JOB,
                      
          (    ).


     6.2.  .

        ,      
    robotron  6329.01/02, EPSON FX80, D-100.


     6.2.1.   .

         -:
       
            OPEN                    WRITE
            CLOSE                   ZPRINT
            USE                     ZWRITE
            ZUSE


     6.2.2.    .

    ,          ,
       WRITE *   :
   10 -  ;
   12 -   (   );
   13 -  .
         (  3)  -
      :
   O 3 U 3 W *12 ZP  C 3
                 WRITE
     ,   #
( )  ! (    ), :
MET2 W #,"",!," "
          .[2].
                  
ESC-.       -
       .
          .
        ESC-    
        ,         
     .      ESC- -
         .


     6.2.3.    .

        ,    -
 $ZA      .   -
     5        $ZA,  
       ,      -

:
     48                          
                 6.   -.


      1)    ;
      2)  ;
      3)    ;
      4)      .
            -
     .     
      ( ^CTK),    
        .


     6.3.  .

          4   .  
  47-50.    9-    (MT)  
 (MM)      64        32
  .
       ,   -7  ,   -
           .
      ^MMD  (  ,    
   )    ,  
 .     .  [4].


     6.3.1.  .

   ,     ,   :
47  0, 48  1, 49  2, 50  3.


     6.3.2.    .

          :
            
       OPEN             ZLOAD       ZPRINT
       CLOSE            READ        WRITE
       USE                          ZWRITE


     6.3.2.1.  OPEN.

     OPEN      :
OPEN[:] [:(1:2:3)][:]

       (1).

      OPEN  ,      -
,     ,      ,
         ,    
  .       ,  
  .    ,    
 ,          .
 ,   ,     1,    
 .       .
     OPEN   :
 - -7.



                                                       49
                 6.   -.


              -7.
B -  .
         ,     ,  
         VIEW (  63).   -
       OPEN      -    ,
      "C" (  ), "T" (  -
       )    (  ).      
       WRITE *
C -    .
              ,  -
             .   
       ,   ,   
         ,    
    .         -
    ,         .   
      "B",   OPEN       .  
      "B",       
    VIEW,            
     "U 63...",      6.9.  ,   -
            "C",    
     "D"  "S".          
         4.3.4.4.
D -    .
           ,   -7     
    .
E - .
            -7   ,      -
         -7.         
    ,     SYSGEN     
      (EBCDIC)
F -      .
         ,        
      .        .
     ,         
      .       OPEN  -
     ,     .
L -  .
            -7      
    .
S -   .
              .  
               ;  
        .        
       ,      
       ,   <> ( ) .
              
     6.3.4.
T -     .
             .    
          ,  -
       $ZA.
U -   .
             ,  
       .
V -     .



     50                          
                 6.   -.


            "D"  -7      "V"
     ,    ,      -
    .      WRITE      ,
            READ   
             .   -
      .
3 -  ().
           32   .
3 -  ().
           64   .
             .  
       (, VF),  
      ,     -
  .       -
.   6 ,     .

                                       6.
             OPEN
        (,   "X" ).
        --------------------------------------------
        !  ! A  B  C  D  E  F  L  S  T  U  V   !
        !------+-----------------------------------!
        !  A   !      X  X     X  X  X  X  X  X   !
        !  B   !      X                 X         !
        !  C   !   X  X  X  X  X  X  X  X  X  X   !
        !  D   !      X  X           X  X         !
        !  E   !            X  X  X  X  X  X  X   !
        !  F   !      X     X  X  X     X  X      !
        !  L   !      X     X  X  X  X  X     X   !
        !  S   !      X  X  X     X  X  X  X      !
        !  T   !   X  X  X  X  X  X  X  X  X  X   !
        !  U   !      X     X  X     X  X  X  X   !
        !  V   !      X     X     X     X  X  X   !
        --------------------------------------------


        (2).
   ,    ,     
    .          
    ,      -
  0 ()    .    
   ,          1
 255.

        (3).
   ,    ,     
   .         14  
8192,     ,     14  32766  -  
  .       ,
        . 
                
  .        
   .





                                                       51
                 6.   -.


      .
    ,       ,  
   ,  ,   -
  .        -
   ,       $TEST
           .    
        ,    
  $TEST ,  1,      -
 .
          :
           1)   0    ,    
              .
              >O 47
           2)   0    "D"  (
              ).
              >O 47:("AVL")
           3)   0      
                  ,        80
              ,    240  (3      ).
                0     3 , 
                  .
              >O 47:("EUF":80:240):3


     6.3.2.2.  USE.

    USE     ,      
    OPEN.     
USE       ,  -
   <NOPEN>.


     6.3.2.3.  CLOSE.

    CLOSE     WRITE *9  (  
  <EOF>),    .  ,  ,  
   CLOSE,      -
  (  ).  ,        
     ,    ,    
         .      
      .   
    OPEN ,            
.      ,         
    .


     6.3.2.4.  WRITE  ZPRINT.

    ZPRINT        ,
   .    WRITE      
,    ,   .







     52                          
                 6.   -.


     6.3.2.5.  WRITE * .

    ,     7,        
  WRITE       .
        ,  
  WRITE  WRITE *.


     6.3.2.5.1.  ZLOAD  READ.

    ZLOAD         
 ,    .    READ  
        .  
           ,      READ
 .


     6.3.2.6.    .

    ,       ,    -
  :
      1)   OPEN  USE   ;
      2)   WRITE *5  ,       ,
             (           
         );
      3)  ;
      4)       CLOSE      ,    
         WRITE *5  ,    .
     ,           
        .
       (BOT)       
    ,    ,    
     .
        $ZA  ,    
          -
    ,   .      $ZA
       --
,    ,   OPEN   -
 .   8      $ZA
  .
          .
               
         7, 8, 11, 12, 13,  14    15    
        <MTERR>.
                  
 OPEN.  3  OPEN    ,  -
      14  8192 .  (    
 1024 ).    "C",     -
   .
        $ZB   ,    
   ,      
.           ,    
 3. ,         $ZB,
     ,        
.     ,    
.         

  $ZB;         
                                                       53
                 6.   -.



                                         7.
          WRITE
------------------------------------------------------------
!!!                                   !
!---+--------+---------------------------------------------!
! 1 !   !    .     !
!   !        !   /.  !
!   !        ! -        !
!   !        !     .   !
! 2 !  !      .!
!   !        !      -  !
!   !        ! (BOT:  ),  !
!   !        ! ,     . !
!   !        !    "",  /  !
!   !        ! .                             !
! 3 !  !      !
!   ! !     !
!   !        !    ,     !
!   !        !        !
!   !        !,        !
!   !        !.                                    !
! 4 !  !   .   - !
!   !   !     (BOT),    !
!   !        !       !
!   !        ! .                                  !
! 5 ! -  !     ,     !
!   !   !         !
!   !        !WRITE *9    .        !
! 6 !  !     -!
!   !   !  ,    .   !
!   !        !      -  !
!   !        ! (BOT),    !
!   !        ! (   - !
!   !        !),      !
!   !        ! .                                     !
! 7 !  !     -!
!   !   !  ,    .   !
!   !        !      -  !
!   !        ! (BOT),    -!
!   !        ! ,    .       !
! 8 !  !      ,!
!   ! -!     .     !
!   !     ! -    -!
!   !   ! ,    -!
!   !        ! "HDR1, HDR2,  ",!
!   !        !    ,  !
!   !        !       !
!   !        !(BOT).        !
!   !        !    . (- !
!   !        ! HDR  "").             !
! 9 !  !         !
!   !   ! -    - !
!   !   ! ,      - !
!   !   !  .     !
!   !        !   "- !

!   !        ! , EOF2, EOF2,  , !
     54                          
                 6.   -.


!   !        ! ". (EOF   )!
!   !        !     !
!   !        !    ,     !
!   !        !        !
!   !        !,        !
!   !        !.                                    !
!10 !  !      -!
!   !  $Z  !  $ZA    - !
!   !        !,      !
!   !        ! .                             !
------------------------------------------------------------


   $ZA   .        8.
------------------------------------------------------------
!!                                              !
!---+------------------------------------------------------!
! 0 !  .                                   !
! 1 !   .                                !
! 2 !     .                  !
!3,4!                                        !
! 5 !   (     BOT) !
! 6 ! =0,    , !
!   !          .         !
! 7 !  .                               !
! 8 !  .                                        !
! 9 !   .                                  !
!10 !   (EOT)                                    !
!11 !   .                        !
!12 !  .                                     !
!13 !   .                        !
!14 !  .                                    !
!15 !   .                                !
------------------------------------------------------------

.
     CLOSE,   .    -
         ,
   -     WRITE      ZPRINT.
          -
 ,           
  CLOSE      .   
   WRITE *9 (   ), WRITE *5 (-
 ) ,      ,  WRITE *3 ( -
 ).         -
.             
 HALT.
     -          
 VIEW.          VIEW  (
 63).          
     OPEN  "B".
          ( WRITE *6  -
 WRITE *4),         
   .       -
     .       -
   .


                                                       55
                 6.   -.


       "B",     
USE  . (  ,       
USE        ).      USE  
,        "B",  
:
   USE [:(1:2)]
1 -           :  
              14    32768  (    
          1024 );
2 -     ;       -
         64      VIEW  (      
           0).
                VIEW.
,   ,       ,
   VIEW (  63).  , ,  -
    ,     -
   VIEW.  VIEW    1024 .
       "B",      ,
       VIEW.     
"C",       VIEW   
USE             .  
  "C",            
.  ,     USE,      
 ,  ,        "B".  
      ,    -
   OPEN   63.


     6.3.3.     .

       :
      1) ,    .
                    (    
         ),       .    -
             :
            [1,1]DIAMS.003<233>
      2)   ANSI.
             ANSI,    ,   :
            VOL1MUMPS1
                 :
            D%B4444001001
              :
            VOL,HDR1,HDR2*......*EOF1,EOF2**
              .     VOL,
         HDR1, HDR2, EOF1  EOF2  80- ,  
          ANSI. "VL" -  , "HDR" - ,  "EOF"  -  
         .
             :
            VOL,HDR1,HDR2*......*EOF1,EOF2*HDR1,HDR2*...
                 ...*EOF1,EOF2*HDR1...EOF2**
           HDR1  HDR2   :
            HDR1MUMPS.SR  HDR2D0051200136
      3)     ( EBCDIC IBM)   
                   ,  
               ANSI.  . 1 -
          ,     .


     56                          
                 6.   -.


         
                     
         -------------------------------------------------
         !   1    2        3     4         5       6     !
         ! ------------- -------------   -------------   !
         ! !   !       ! !   !       !...!   !       !...!
         ! ------------- -------------   -------------   !
         ! <---RL1-----> <---RL2----->   <---RL----->   !
         -------------------------------------------------
         \_____________________  ________________________/
                               \/
                           .
             1 -  -1;     4 - -2;
             2 -  -1;          5 -  -X;
             3 -  -2;     6 - -X.
         
                            . 1
         
      4)  .
        ANSI,    OPEN  -
  "L"  "A" (          ).  
  ,    OPEN     "L"    "E"
(       ).        
"DIAMS3",                      
"DIAMS.SR".          .  
              
   .
   ,    ,    "DIAMS.001".
    ,        ANSI   -
 ,     :
... (X-1) WRITE *9,*1,*8  (X)...
       ,      (X)      
,    CLOSE         
    .  WRITE *9,    
,     ,       .
    ,        ANSI  -
 ,     :
 ... (X-1),   ,
 WRITE *7,*7  (X)


     6.3.4.  .



     6.3.4.1. .

            ,      
         (  ).  
      .        
   <><>     <>.    
         ,      
    NUL,       
-7,         .
           , -
       NUL    

.      NUL   .    
                                                       57
                 6.   -.


  READ        .


     6.3.4.2.   .

        ,   "V"  -
 OPEN.     . 2.

               
-------------------------------------------------------
!   1    2     3       4     5         6    7         !
! ---- ------------- -------------   -------------    !
! !  ! !   !       ! !   !       !...!   !       !... !
! ---- ------------- -------------   -------------    !
!      <---RL1-----> <---RL2----->   <---RL----->    !
! <------------------L-------------------------->    !
-------------------------------------------------------
\________________________  ___________________________/
                         \/
                  
   1 -  ;           5 - -2;       
   2 -  -1;        6 -  -X; 
   3 - -1;              7 - -X.       
   4 -  -2;
                       . 2

             -
,      ,    ,    4
    .       -
     ,        (^)  
  ,         
     ,        -
    .
      "E"  "V",    OPEN,    -
       .   
     ,   ,   -
     4-    (    
 ,     ).      
     ,   ,   4      
 .
                
WRITE          EOM.


     6.3.4.3.  .

           ( 1   255
)       OPEN.      
   ,         ,  
     NUL (,    0    
-7).             
   .
             ,      
 ,         .    ,
           
   .        ,

   .
     58                          
                 6.   -.




     6.3.5.    .

            "C"  
 OPEN.            
,          . 
       OPEN  "S",    -
  .
           -
      .      -
       25 IPS (    )  
100 IPS (1  - 25 ).
             
  ,     .
            -
  ,             
       .   -
   -      -,  
     ,     -
 .
         ,    
 .            
   .          
,           -
 .          
         .
         ,   
VIEW     ,    OPEN  -
    .       
,  VIEW     ,    
   ,    .  ,  
   1024   VIEW          ,
 2048 , (   1   OPEN   63  
  2).
                
  ,    .
    VIEW               
.    VIEW         
  ,           
     VIEW,        -
.
          -
     ,       
 ,         ,
      .   ,
             
    .

START   O 63:8  ;   VIEW 
                ; 8   1  (8096 )
        O 47:"CB"    ;    
                     ;    
        S BLK=0,MAX=100 ;    -
                        ;     
LOOP    U 63:(1:4) V BLK:"DW0" ;  4   

                               ;  1-   VIEW
                                                       59
                 6.   -.


        U 47:(4096:0) W *4 ;     
                           ;  4 , 
                           ;   0  VIEW
        S BLK=BLK+4     ;   
        U 63(5:4) V BLK:"DW0"  ;   4  
                               ;   2- 
                               ;  VIEW
        U 47:(4096:4048) W *4  ;    
                               ;  4 ,  
                               ;  4048  VIEW
        I BLK=MAX Q    ; ,    
        S BLK=BLK+4 G LOOP ;   
                           ;      
                           ;    -
                           ;  


     6.3.6.      .

             $ZA.
 ,    ,    ,   -
  CLOSE,  ,    
$ZA,    .         7  
 $ZA       :
      1)    (LER)    $ZA  -
         ,  ,    ,      
             ()     
         ;
      2) :   ;
      3) :     ;
      4) :  ;
      5)   ,       -
          :
          1)      ;
          2)      ;
          3)   ;
          4)    ;
          5)        .
    ,    ,  ,    
,     $ZA,    -
  ,     :
      1) :  ;
      2)  "  "        
             ;
      3)            
         .      ,      
         ,   ,    OPEN;
      4)  EOT ( )     .
             
 $ZA  ,         (,
  ).      $ZA  
  ^%MTCHK (      ).  
    ^%MTCHK .  [4].
        $ZTRAP     
 ,      -  -
 ,           /  ,

    $ZTRAP,      $ZA  
     60                          
                 6.   -.


      7, 8, 9, 11, 12, 13  15.
         ,    -
  $ZTRAP,       -
 ,          .
 ,    ,       "T"
(      )      
  OPEN,    .
             -
 <MODER>.      ,    
 $ZTRAP  .
    EOT ( )   .  -
        EOT,   
 .    $ZA,      EOT,  
    ,          
.          EOT,  
  $ZA   ,    EOT.
      $ZTRAP,   <MTERR> -
    .     -
 ,   EOT,    $ZA.   
 EOT         
 .
          .
           1)         (
              15).   ,    
                  ERROR,   :
              O 47 U 47 G:$ZA\32768 ERROR
           2)   10     .
              U 47 G:$ZA\1024 2 ERROR


     6.4.   .

      ()         
 -     .
          ,    
   ,    ,      .
  ,     ,    -
  .      ^SDP  
            
  .   .  [4].    
      ^JRNALL      
 .
              1024
,           .    
          ,  
,    .  ,     -
    ,       
          ,     
 .     ,        
       CLOSE      
.
             -
  ,   .     -
           
   .         -
  ,       -

    .
                                                       61
                 6.   -.


    ,          
,      ,   -
  OPEN  USE    .   
 -      ,   -
      -.  ,  -
      (   )  
,    USE     , 
       ,    
,     .
            
 ,       ( -
  ).            .
          
.         ,  
  <PROT>.     ,       0    
,    ,        
  ,        1  399, -
  0    .


     6.4.1.   .

        59  62   .


     6.4.2.   .

   ,        -
,       :
             
   OPEN         WRITE       READ
   CLOSE        ZWRITE      ZLOAD
   USE          ZPRINT


     6.4.2.1.  OPEN  USE.

     OPEN  USE   -   -
    :
   OPEN/USE[:] [:(1:2:3)][:]
          -     59  62;
1 -     ( 0  1023);
2 -    ,
3 -     ;
 -  ,      OPEN.
     OPEN  USE,    -    
 ,    . 6.4.5.
          .
      ,        2,    ,
            .
     OPEN      , -
  ,    ,   :
   OPEN[:] [:(1:2:3)][:]
  -     59  62;
1 -      ,     (-
            ,        

         );
     62                          
                 6.   -.


2 -    ,   , ,   -
           (          
         ,    );     
              ;
3 -     ;
 -  ,      OPEN.


     6.4.2.2.  CLOSE.

       ,        -
 CLOSE,        .


     6.4.2.3.  READ  ZLOAD.

       ,    
       ,        READ  
ZLOAD.         -
     ,        EOM
( )       .    -
     EOM         
 ,       ,      
              
 ,    0   ,     
 :
      1)        NUL  (
         -7  )     ;
      2)         ,
           .


     6.4.2.4.  WRITE, ZWRITE  ZPRINT.

              -
,    , . [2].
      ,          
 (        -
 ).           
 :
      1)  ;
      2)  ;
      3)   -       
           .
    ,            (
           
  0.


     6.4.3.      .

         , 
     ,    $ZA.      
          $ZB.
       -   -
      ,     

( 400- ,    399).       
                                                       63
                 6.   -.


       OPEN   USE   
 .        
 0           .  
            
,    " " (    $ZA
 -1).


     6.4.4.       .

         OPEN    '    
   USE,  ,   1 (  ) , 
1023,     <MXNUM>.       
    ,         ,
   ,         
,       <PROT>.
           (  2),    
         ,      
   $ZA ,  -1.     -
    OPEN   USE,     ,  
          
,    .       ,  
          
   .         $ZA
   OPEN, USE    -  ,  
        .    
   OPEN       USE,  
      ,       (
  ),   ,      
 OPEN, USE  CLOSE,     READ.    
        <PARN>  (  N  -  
 ).


     6.4.5.    PEN  USE  .

          ,   
  :
>O 59:(0:1600:"DW0") ;  0   1600
                     ;   DW0
>S A=123,B=57897,C=""
>U 59 W A,!,B,!,C,!  ;  "!"   
                     ;    
>KILL   ;    
>U 59:(0:1600:"DW0") R X,Y,Z ;   -
                             ;   X, Y  Z
>ZW
X=123
Y=57897
Z=""

          ,    
   ,     ',      ,
   ':




     64                          
                 6.   -.


  >ZL _
  >O 59:(5:1621:"DW0") U 59 ZP  ;  5   1621
                                ;   DW0
  >C 59 HALT
 ,        :
  >O 59:(5:1621:"DW0") U 59 ZL  ;   
                                ; .  
  >ZS _ ;       


     6.4.6.      .

       ,        ,
   ,      OPEN
     USE    ,   
1         ,    -
  ,    .      
      ,     
       ,  -
    .    
 . [4].


     6.5.    .

         (  -
 : JOBCOM)       ,  
  .        ,
  :      "-
" ,       "".
    ,   ,     -
-   .      -
 -       .    
   .  ,    -
      ,   ,     -
 ,     OPEN   -
       USE.   ,    
   ,    ,    --
  .  ,        
OPEN  -,         
    CLOSE  ,      -
  -.      -  
    OPEN   .
      ,   ,   -
,   ,   ,   --
       .   ,  
 ,   ,   ,  -
  .
   -   ,   --
    .     
   (,        -
)    <NODEV>.






                                                       65
                 6.   -.


     6.5.1.    .

          : 224 - 255 (.
. 1).


     6.5.2.      .

           :
             
OPEN            WRITE       READ
CLOSE           ZWRITE      ZLOAD
USE             ZPRINT


     6.5.2.1.  WRITE  READ.

      WRITE,   ,    
,    READ,  ,  -
  .         
 . ,        
  :  A="",  B="",  C=(  
   ).
   >O 225 U 225 W "","",! O 224 U 224 R A,B,C
   >ZW
   !A=""
   !B=""
   !C=""
           
 READ      .      
      ,    
         -
 ,      .


     6.5.2.2.  ZPRINT  ZLOAD.

              -
.  ,            -
 ,   :
   >ZL PGM O 225 U 225 ZP
        :
   >O 224 U 224 ZL


     6.6.   () ( DMC-11).

          
      . -
       DDCMP,    
  ,       
.






     66                          
                 6.   -.


     6.6.1.    .

            3   19  
      SYSGEN.


     6.6.2.   .

          :
             
OPEN            WRITE       READ
CLOSE           ZWRITE      ZLOAD
USE             ZPRINT
             :
      1)   .        
             ,    -
             ;
      2)  .        -
            1024 .    ,   -
           ' ;
      3)  .          
          VIEW   VIEW  .


     6.6.3.    .

         ,    -
   .      .  
       ,    
   255 .      -
          
 .       
   :
 A:
   >O 4 U 4 W ""
 B:
   >O 5 U 5 R A:15
      READ      B.  
  ,  15 ,    
  ,                
 .
          .
      ,    ,    
            .


     6.6.4.      .

    ,          -
        OPEN        USE  
     ,   .   
    :
   OPEN  USE[:] [:(1:2)]
  -   ,     3  19;
1 -       ;
2 -     .


                                                       67
                 6.   -.


   ,        ,    
  ,       .  
         
   .    ,   
 OPEN,      .     
    .  ,     
       ,   -
 ,     9.

    ,           9.
   WRITE *   
-----------------------------------------------------------
!!          !                          !
!---------------------------------------------------------!
! 1 !         !    -!
!   !    !                    !
! 2 !            !      !
!   !    !                        !
! 3 !     !     !
!   !                  !        !
! 4 !    !    !
!   !                  !     -!
!   !                  !                         !
-----------------------------------------------------------

    ,      OPEN      
 USE    ,   ,   
  -    .       ,
   WRITE *1,    :
      1) ,     ,   -
         ,      .   -
           1   .          ,  
                  -
         .          
         ;
      2)    ,     WRITE *3  
         ,    ,    ,  -
            ,         
         ,     OPEN  USE;
      3)      WRITE *4  ,  -
                 ,   -
          ,        OPEN    USE,
          ;
      4)        ,  -
           WRITE *2.    ,    -
             .       
           2    ,    -
         ,        ;
      5)        ,  
                ,     
          .         
                USE.






     68                          
                 6.   -.


     6.6.5.      .

         VIEW.    -
   OPEN      USE  , 
  ,  ,     -  
 .              ,
   .     :
   OPEN/USE [:1]
  -   ,     3  19;
1 - ,      "B" (.).
   : USE 4:"B"
                
 VIEW .    VIEW     ,    
 .              
VIEW.  VIEW                (
 ).         
 ,      VIEW   ,   5 
  $ZA      .      5  
 $ZA  ,  ,       -
.  ,    WRITE *    ,      5  
  $ZA   ,    VIEW        
     .
    ,    -   ,  
  ,    10.

   ,            10.
  WRITE *   
-----------------------------------------------------------
! !          !                         !
!----+------------------+---------------------------------!
! 1  !         !       !
!    !   !               !
! 2  !   !    !
!    !            !                       !
! 3  !    !    VIEW !
!    !                  !              !
! 4  !   !     VIEW!
-----------------------------------------------------------

          WRITE *    
,      .         ,  
      VIEW,    
          
VIEW.
       ,   VIEW      -
           
      .     
             
    .
          .
        ,      VIEW,
      ,     VIEW.






                                                       69
                 6.   -.


     6.6.6.       .

                 
  :
      1)            ,  
         ,         .  
         ,        -
         ,   ,       
          .           
          ,           
         ,   ;
      2)    CLOSE    ,    
                 -
             (DIR)  ,    -
          .


     6.6.7.     .

            
$ZA.   11        -
 .

     $ZA,       11.
    
------------------------------------------------------------
!!          !                            !
!----------------------------------------------------------!
! 0 !   !       !
!   !                 ! .   !
!   !                 !,    , !
!   !                 ! ,     !
!   !                 !  .   !
!   !                 ! ( ).       !
! 1 !     !     21 .   !
!   !                 !   ,   -!
!   !                 ! ,   ,     !
!   !                 !    -!
!   !                 !    .!
!   !                 !  .       !
! 2 !       !     -!
!   !                 !  ,    - !
!   !                 !.   . !
! 3 !           !     -  !
!   !                 !  (   !
!   !                 !).   - !
!   !                 !.                         !
! 4 !     !    , !
!   !                 ! ,   - !
!   !                 !.    -!
!   !                 !.                              !
! 5 !     !      -!
!   !                 ! .                  !
! 6 !         !    -!
!   !                 ! (     !
!   !                 !).   -!

!   !                 !.                              !
     70                          
                 6.   -.


! 7 !  DDCMP    !    -!
!   !                 !       !
!   !                 !   .  -!
!   !                 ! .             !
! 8 !   !     - !
!   !           !     -  !
!   !                 !  .      !
!   !                 !.                    !
! 9 !      !    -  !
!   !           ! ,   - !
!   !                 ! .   -!
!   !                 ! .                 !
!10 !   !                                    !
!11 !       !     -!
!   !       !    .          !
!   !    !                                    !
!12 !  !       !
!   !                 !.    -!
!   !                 !.                            !
!13 !   !   ,   -   !
!   !    !      !
!   !                 !.       !
!   !                 !  .                  !
!14 !           !     - !
!   !                 ! .   !
!   !                 !.                    !
!15 !  !      !
!   !           !(    , - !
!   !                 !  4, 7, 8, 9  14)    !
------------------------------------------------------------

        $ZA      ,    
       READ  WRITE.  -
         -
-,      <DMCER>.     -
-,    :
      1)      OPEN  USE;
      2)    WRITE *4   ;
      3)   ,   ,   
         VIEW.
           -,
   .     -
         OPEN. -
         
.


     6.7.  .

            ,
      .   ,  -
       ,     -
   .       -
.
             ,
      (  ,  ,  

   )      ,
                                                       71
                 6.   -.


      (      OPEN)  
,       -   .  -
            ,
           -
   .
          :
      1)  .       -
          ^DESPOOL.  ,   ,    
            ,     -
         , ,       3.      
              ,    -
                .    -
             ,       
            ,     ;
      2)  .         
          ,      
              .        
              .   ,  
           ,   -
          ^DESPOOL      ,   -
             .
       :
      1)     (  );
      2)   (,   ,  
            ,   );
      3)   .
               
  .        
   253  ,    1  253.
       ^SPL  ,    -
      ,     
    400   .       
    ,   ,    -
 (. [4]).        
   .          
           
,       .
        253  ,    -
         16    ,
   ,      .


     6.7.1.   .

           2,  
  .


     6.7.2.  .

          :
             
OPEN            ZLOAD      ZPRINT
CLOSE           READ       WRITE
USE                        ZWRITE



     72                          
                 6.   -.


     6.7.2.1.  OPEN.

    OPEN     :
      1)  :
         OPEN  - ,     ,    
                 ,   ""   -
                ,        -
                   .
      2)  :
         OPEN 2 - ,      ,    
                  ,      -
               ,     .      
                    ,   -
                        <NODEV>.  
                      ,    
                    ;
         OPEN 2:_ - ,     ,  
                        .  
                     (   1  
               255),         -
               ,        .
      3) :
         OPEN 2:512 - ,    ,      
                      -
               . (                
               ^DESPOOL).
         OPEN 2:512+_ - ,         ,
                        ,
                  .     
                   ,   -
                  ,       -
                .
         OPEN 2:512+_ -    ,    -
                    .
        ,   
  .           ,
    .         
  ,           
,       .     
     .  ,  
" "    ,   .
     $ZA,   OPEN,        
 ,      .


     6.7.2.2.  USE.

    USE     :
      1) USE 2 -            ,  
                   
            ,    OPEN   -
            USE,  .        
         ,       USE      
             .     -
         ,      USE.



                                                       73
                 6.   -.


      2) US 2:_ - ,        ,   
             -.     -
                   ,    
            USE  .       
            ,    $ZA  -1.


     6.7.2.3.  CLOSE.

    CLOSE     :
      1) CLOSE 2 - ,      ,    
             ;
      2) CLOSE 2:256 - ,        ,     
           ,      ;
      3) CLOSE 2:_ - ,     ,  -
             .     ,  
            .       -
         ,      .
      4) CLOSE 2:_+256 - ,           ,
            ,    " ".    
            "+256",       
         ,          
          .     ,     -
          ,   ,    ,    
          (    "C 2:256",      
         ).
         $X  $Y,   
     (?N).  ,  -
   ( WRITE *   WRITE).     
   ,      .
      -7     0  127.  0    -
    (NUL),    ,    
$ZA   -1.
      ,    ,        
   :
>OPEN 2:3 SET FILE=$ZA#256
>USE 2:FILE
( )
>CLOSE 2:FILE


     6.7.3.  .

         ,    
      .   -
    ,      .
 ,       OPEN,  -
 ,        -
,    .        
         ,
          -
   .       -
          .   -
           ,    
 .



     74                          
                 6.   -.


        ,      
,         
 .           -
 (^SYS),     : DO ^SPL
      .  [4].
            (-
  ^SPL):
      1)    ;
      2)      ;
      3)   ;
      4)   .
      1  2,        
(^STU)    3  4   ,      
  . ( 1, 3  4      
).
        ,      
,       OPEN,        USE,
      CLOSE,    
,   ,      -
 ,      .   ,    
   ,       ,  
   (  ,       
    ).


     6.7.4.  .

    (  ^DESPOOL)    
  ,     ,  
 .
     ,       -
    (^DESPOOL),        
,     ,    ,  ..  
   ,     .   
 11    ,     2  
.        (,
,     ),        
^DESPOOL  ,    .
            
 2 (-  ).        ,
 2       (,  -
,   ).
      ,   2,  
       .   
           ,  
         $ZA  ,  
  USE 2. ,  ,    ,    
            
      .
      , ,      
  ,       ( 
    $ZA)      
     .        
          ,    
  .



                                                       75
                 6.   -.


      ,         
 .
     ,     ,  -
     "USE 2:_" (  
   ,      ).   
 READ    ,    -
 .    READ     
  $ZA;       ,    
  $ZA  .        
,      CLOSE    256.


     6.7.5.     .

         $ZA   :
      1)    : _*256+_
      2)    :   
           -1    
           -2   
           -3    ,     
                 
           -4    ()
           -5   


     6.7.6.   .

           .
 ()        
    .        
  " "  .    -
   "  ".
    . 3      .  . 4 -
     .
            .   -
  253 .
               -
      (   . 4).     
   ,    . 5.
         , 
 :
      1)  SYSTAB+230         -
          ,   ;
      2)    (DDB)  2    ,  
            ;
      3)    (OFI)     16    
          .
    . 6       .
        (. . 6)    -
 ,      ,    
   .  ,      ,  
   .  ,     -
  ,           
,         -
.



     76                          
                 6.   -.



              

  -              
 2 (- )         
------------------                ---------------
!                !                ! ! -----
!                !                !     ! --- !
------------------                ---------------   ! !
!                !                !    ! <-- !
------------------                !-------------!     !
!                !                !   !     !
------------------                ---------------     !
!       !        !            --- !     ! <----
------------------            !   ---------------
!         !            !   !             !
------------------            !   ---------------
!      !!            --> !     ! ---
------------------                ---------------   !
!  -   !                !             !   !
!     !                ---------------   !
------------------                !   N1   ! -----
                                  ---------------   ! !
             !             !   ! !
         ---------------          ---------------   ! !
         !    !      --- !     ! <-- !
         !             !      !   ---------------     !
         ! !      !   !             !     !
         ---------------      !   ---------------     !
         !   N1  !      --> !     !     !
         ---------------          ---------------     !
         !   N2  !          !             !     !
         ---------------          ---------------     !
         !   N3  !      --- !   N2   ! <----
         ---------------      !   ---------------
                              V

                          . 3

     READ   WRITE     .  
OPEN          -
.  USE      OPEN .
              -1,
    .       
       .
   ,     ,   , 
           
  .  ,     
0,        .


     6.8.   .

   ,    20  46   200  223,  
  .    ,      
  .    OPEN  CLOSE ,    

 ,        . -
                                                       77
                 6.   -.



              
     -------------------------------------------------
     !                         0                     ! 0
     -------------------------------------------------
     !       0              !           0            ! 2
     -------------------------------------------------
     !                         0                     ! 4
     -------------------------------------------------
     !                         0                     ! 6
     -------------------------------------------------
     !    ()                           (L)          ! 8
     -------------------------                       !
     !       0               !     (H)  ! 9
     -------------------------------------------------
     !       1 ! 10
     -------------------------------------------------
     !           1          ! 12
     -------------------------------------------------
     !               .  .  .                         ! 14
     -------------------------------------------------

                          . 4


                 

              -------------------------------
              !         !
              ! ()             (L)         ! 0
              !--------------           !
              ! ()         !   ()         ! 2
              !    -----------------
              !             !
              ! ()             (L)         ! 4
              -------------------------------
              !           ! 6
              !              !
              -------------------------------
              !                       ! 8
              -------------------------------

                          . 5

  ,             OPEN,
       .    
     OPEN      -
 .         -
,          .


     6.8.1.     .

        (. . 1)  : 20-46 (
   1-27)  200-223 (    28-51).



     78                          
                 6.   -.



              

        -----------------------------------------------
        !          ! 0
        -----------------------------------------------
        !          !           ! 2
        -----------------------------------------------
        !   $ZA ( )   ! 4
        -----------------------------------------------
        ! (M)                   (L)      ! 6
        -------------------------                !
        !          !         ()         ! 8
        !             !                     !
        -----------------------------------------------
        !                          ! 10
        -----------------------------------------------
        !                                     ! 12
        -----------------------------------------------
        !.  $Y ! .  $X! 14
        -----------------------------------------------

                          . 6

     6.8.2.     .

              
: OPEN  CLOSE.


     6.9.  VIEW.

    VIEW,   63,      
 .   ,   VIEW.
          .
             -
         VIEW,     
          '    .
      63,        
,        
    .       -
,   VIEW   0 (. [2]).     -
           .
            VIEW    -
 :
      -
OPEN            VIEW
CLOSE           $VIEW
USE


     6.9.1.  OPEN.

     OPEN   VIEW,         ,
  :



                                                       79
                 6.   -.


   OPEN[:] 63[:(1:2:3:4)][:]

       (1).
        (    1024 ).  -
       .      VIEW  
      ,      
   .

       (2).
           VIEW    (
   1024 ).            
  ,             
  VIEW   $VIEW   0.      
 ,       1.      
  ,         VIEW.

       (3).
       VIEW    (     
1024 ).  ,   ,    
  : 1-2+1.

      VIEW (4).
   ,       VIEW,    
 12.

     
       ,      
 OPEN. :
   O 63:(10:5:6:"CP"):2
       VIEW  10 .     -
     5  10,          
 ("P").         
63   2 ,         ,  
  $ZA       .


     6.10.  USE.

     USE   VIEW   :
   USE:[:] 63[:(2:3:4)]
     USE   63,     1
( ).  2,  3   4       ,
     OPEN.


     6.10.1.  VIEW   $VIEW.

       VIEW     VIEW        
$VIEW,      ,    -
  OPEN  USE. ,    OPEN 63:(5:5),  -
 VIEW 4:0:$VIEW(4,0)+1   1      (  4100)
 VIEW.        1-4,    
        .
      VIEW .  [2].     , 
           104-  
.   VIEW,    $VIEW,    0, -

        VIEW.
     80                          
                 6.   -.



                  VIEW.           12.
------------------------------------------------------------
! !                                  !
!---------------+------------------------------------------!
! Z -  !   VIEW  -  !
!         !     .  !
!      0   !      - !
!               !  ,    !
!               !    .           !
!               !               .                !
!               !        -!
!               !     , - !
!               !      -!
!               !    -0   0. -!
!               !       -  !
!               !  ,     !
!               !   "VIW -16777216"   -!
!               !     .                    !
! F - -  !      -!
!        !    VIEW  - !
!               ! "".  -!
!               ! VIEW   - !
!               !        !
!               ! ,    .  !
! T -   !    ,   - !
!               !  VIEW     !
!               !,        !
!               !   <DKHER>.  , !
!               ! ,    -!
!               !  ,       !
!               !    !
!               !$ZA.       !
!               ! 63,   6   - !
!               ! $ZA   1,   - !
!               !    ,  -!
!               ! 0,    .             !
! P -     !    -!
!               !      !
!               !  63    !
!               !    !
!               !  <BLPRT>.    !
!               !     -!
!               !  .  !
!               !  ,    !
!               !    <SYNTX>,  !
!               !   VIEW  1. - !
!               !      ,   !
!               !    VIEW !
!               !  , :         !
!               !  VIW 2145:"S0"                          !
!               !       !
!               ! VIEW . [2].                     !
!  -    !      VIEV.!
!         !   -!
!               ! VIEW  , , , !

!               ! OPEN 63:(::"CP")   !
                                                       81
                 6.   -.


!               !     ("P").  !
!               ! "C"       6!
!               !  $ZA.    !
!               !  $ZA   !
!               !    -  !
!               ! VIW  .                    !
! V -  !      -!
!               !    " - !
!               !".    ,   VIW!
!               !    .  !
!               !    "T"    !
!               ! "V",     !
!               !   $Z.   - !
!               !  "T",    !
!               !       !
!               ! <DKHER>.                           !
------------------------------------------------------------









































     82                          
                       7.    .


      7.    .



     7.1.  .

               -
  .       -
.   -       ,  -
   .


     7.1.1.  .

    ,    ,     
      .    -
 ,    . ,    
,          ,  
 ,             
 (^).
         :
   ^A
   ^NAME("","")
   ^IDNUM(1,3,4)
        ,   . -
        :
      1)  ;
      2)  .
                
 ,         -
  .      
       :
      1)   ;
      2)   .
           
 ,    . (     
   ,          
  ).    ,   . 
          
,    .       
:
 ^BETA(1,1)
 ^BETA(1,1,1)
 ^BETA(1,2,2)
 ^BETA(1,3.14159)
 ^BETA("FIRST","SECOND","THIRD")
           (   -
)      .  :
A("01")
A(1)
A(10)
A(2)
A(2.5)
A(20)
A(3)
A("B")


                                                       83
                       7.    .


          .
              -
         -7,   .    
           .
          
.  ,     
   ,      -
     ,      
:
   $DATA(---)=1
   -    (^%GLOMAN)   
        -
.


     7.1.2.  .

        ,  -
      .  
      ,      
     ,     .  -
   ,       
    . ,   ^B(1)   
^B(1,5)  ^B(1,7).   ^B(2,4)      ,    
,     ^B(2).
          ,  
    -     ,  
  ,       , -
  .           
. ,       ^A   ^A(1,2,3,4),    
   ^A(1), ^A(1,2)  ^A(1,2,3)  ,    -
  ^A(1,2,3,4).          
^A   ^A(1,2,3,4).
         ,    
  .           ,  
 '     ,     -
     ,     -
 .      -
,      .


     7.1.3.   .

           .
      ,    -
     .        
  .     -
      ,     -
 .  .  7        
.
     ,    ,  
 .         -
    -7. ,         
,   ,     .
        .      
 255 .          

.       ,  -
     84                          
                       7.    .



                

                          * 
                         / \
                        /   \
                       /     \
                   (1)*       *(2)
                     / \       \
               (1,1)*   *(1,2)  *(2,1)
                      / ! \
                    /   !   \
                  /     !     \
                /       !       \
       (1,2,1)*  (1,2,3)*         *(1,2,4)
                       / \
             (1,2,3,1)*   *(1,2,3,4)


                          * 
                         / \
                     (0)*   *(3)
                       /     \
                 (0,0)*       *(3,2)
                       \       \
                 (0,0,1)*       *(3,2,7)

                          . 7

          .
    ,      ,      
           
. :
   ^X(156342,1)=__
   ^X(156342,2)=_-__
     "156342"    .   
       :
 ^X("","","",1)=
                _-__
 ^X("","","",2)=


     7.1.4.  .

     ()      
  ,       .    ,
             
 ,     ,   -
        
   .
   ,   ,     ,
    ,        -
     .
   ,       ,    
 ,        .



                                                       85
                       7.    .


       ,         
,     . ,  ,  
       .    -
       ,        
 . :
 ^BBN - 
 ^BBA - 
 ^BBT -  
             -
   ,  ,        
  . :
 ^BB(NAM) - 
 ^BB(ADR) - 
          '      
  ;   ,     -
    ,  ,    
 .
    ,          
  ,        -
.          
 ,         -
  .  ,      
   ,       -
  .


     7.2.      '.

           ,    
 ',       .      
  :
      1)     ',        -
         ;
      2)       ,      
          ;
      3)   ,       .
               
     .     
  '.
        .. 7.2.1  -  7.2.3  
 :
 -   ',      ;
  -    ,      -
       .         :
            1)     ;
            2)     ;
            3)  ;
            4)  .
    ,     ,    ,    
 <NOUCI>.         ,  
  <NOSYS>.







     86                          
                       7.    .


     7.2.1.     '   .

            -
       ',  
     ,     .  ,  
       ',     -
   ,   :
   ^[""]-
    ,     '  ,  
    ,     -
.       ,        
<PROT>.
          ,   -
    ,       
  ,    '.    
           '  
     .

          :
           1)    ^PPP(1)  ' OPB  
                :
              >W ^["OPB"]PPP(1)
           2)    <PROT>,       
                 ,          
              :
              >S ^["MGR"]A(22)=11996
              <PROT>
           3)  ,     -
                  ,      
                 :
               >S A=^%DATE(T)
               >S ^%DATE(T)=A
               <PROT>


     7.2.2.     '   .

             -
      " ".    
,   ,  ,       -
        .   
     ,        (
 0),   ,       .
     ,   
 ,    ,       .  
        ,   -
   .  ,       
    ,          
     :
   ^["",""] 
  -    (    ),   
 .  ""      
     .      
,         .  ,
    (      
^STU     ^MOUNT)       

 ,        ,  
                                                       87
                       7.    .


  .


     7.2.3.   .

        (DDP)      
  ,          ,
    ,    ,    
  .     -
    ,         .
 ,        -
   .  ,      
,          
( SYSGEN).
              
  .          
      READ  WRITE,      
.         .
             
      ,  .
   ^["",""]-
  -   ,     . ( -
   ,          
 ). ,    ,   
 ( SYSGEN)           .
              ,
              
    .

          :
           1)       -
               ^X(1,2),   ' MGR   COS:
                 >S B=^["MGR","COS"]X(1,2)

           2)   ,      
              (    )     -
              ,    1,    -
                 ,    
                 B(1)   -
               ^X(1,3),   ' MGR   COS:
                 >S B(1)=^(3)


     7.2.4.       '.

            '  
   '.       
   ,      
   ,     ,      
 /   .  ,       -
  ',     ^UCITRAN    
' (. [4]).






     88                          
                       7.    .


     7.3.   .

        ,       .
      .    -
     ( ).
              
.       ' ,   
    .      -
   ,         
   ,       (-
  40).       -
    .          
    $DATA  $ORDER.
            -
         '.    
              
'   '.          
, ,     .        
           (
).
           -
    .  ,        
      .  
   .     ,  
    .     -
   .          
  ,       -
   .
            .  
          ,  
 ,     ( , -
   " "),       -
.       .
    . 8     ,  
 .
    . 9     .
           :
   -          (-
          )   ;
  -         .      
            8  ;
  -  ,      (2  ),    
           ()    ;
  -        ,  -
             .       
          ;
,    1014-1016,           
           .        ,    
               . ,      
           ,      "  ".  
            , " "    .
                   -
              ;
         -     
            ;



                                                       89
                       7.    .



                 .

            --------------------- 
            !!!   
            !    N1   !   N2    ! ( 
            ---------------------   )
                /           \
- - - - - - -/- - - - - - - - -\- - - - - - - - - - - - - -
          /                       \
----------------           -------------------   
!     S X=1    !           !  S Y=""   ! 
!     . . .    !           !     . . .       !  
----------------           -------------------
        !                           !
- - - - ! - - - - - - - - - - - - - ! - - - - - - - - - - -
        V                           V
----------------           -------------------
!    S =+1   !           !S Z=" "!  
!              !           !                 ! 
----------------           -------------------

                          . 8


         
--------------------------------------
!  .!       0         !  0
--------------------------------------      
!                        ! <-- 
--------------------------------------      2  8 
!                !
--------------------                 !
!                  !    ZSAVE        !
-------------------------------------- <--  
!                      !
--------------------------------------
!             .   .   .              ! <--  
--------------------------------------
!  (M)         (L)    !   +1014
--------------------      !
!                  !    (H) !   +1016
--------------------------------------        --
! (M)    (L) !   +1018 !
--------------------  -   !          > 
!          !  (H) !   +1020 !   
--------------------------------------        --
!                       !   +1022
--------------------------------------

                 . 9

  -              :
          20 () -   , 2  6 ()  -
            .    - 1 ;



     90                          
                       7.    .


  -  ,      1022,  ,  
            .          
            .


     7.4.      .

            -
 ,     ,    
           
.


     7.4.1.      .

            
             
:
      1)   ;
      2)  ';
      3)   ;
      4)   ;
      5)   ;
      6)  ;
      7)  ;
      8)  .
       .  [4].
               
,   ,          -
,   ,         .
     ,   ',      ,
      0  16777215,   
       .     ,    
  ,    (   
),           
.  0  1   0    .     
     .    "";   
    400 ,        -
 .   1     24 ,    
  2      9600 (   ).
    ' (   )  
   ,        -
,     .        '
   .  ,     , -
    ,    1    
  .      '    
              
(   2    ).   
    '.  '  ,  
        -
 (  )    '.
      (SAT)   ,  -
   ,     .  
              
   ,       .  
            

  ,    ,      
                                                       91
                       7.    .


  .
    ,         .  
      .        ,
      ,     .


     7.4.2.     .

       ( ),    -
    .        (-
          ).    ,
     ,   
   .
        ,    .  -
         
             .
,   ,     ', 
    30 '.
          0  7;        
   0     "S0",     
1     "S1",      2  
   "S2",       7    
 "S7".         ,
, "SYS".     0       -
,       .
             ,      
   .        
  (   VIEW)    ,    
 1024         .   -
   " ",    -
    ,   .  ,
 "DW0"   0   5508.
              -
     VIEW. ,  5   -
,    0   5508,      VIEW  
  :
   VIEW 5:"DW0"
     VIEW   5  ,      0
  5508,     :
   VIEW -5:"DW0"
              -
  ,    ,    -
 ,  .
            
""   .     (   -
   63  )    0     
 .
                   
 ,        '    ,
  16777216 .        
       .      ,  
     ,        ,
    .     -
              
  .



     92                          
                       7.    .


         ',       
  30 '.     ""      
       .  
        ',     
 ,    .
          ,      
'.           ,  
  .
          ',     -
  ,  ',       0  7.
      0    ,  
  .    ,     -
   0  ,    ,   
1   .       (-
 "")   ,       
     .       ,
    0          
 "".
       (    )  -
     0  1    :
0       -   ;
1-191   -     63-   (    
             );
192-197 -  ;
198-200 -     ' (,    );
300,301 -   (      );
392,393 -   (         ,      
           );
394-396 -     (          ,
              );
397     -   ( 1  8   -7)
           :
401     -     (     1  8);
402-443 -  4       1  8: 1       ,  1
              (       0    7),  2
               .


     7.4.3.      .

        .   -
   0  7.      ,    
  .
      .     0  7.
     .     -
      .  ,  
"DW0"    0   5508.
              ,  
 5-7  "" .   2-4     0   7.
 0  1      .    -
          -
     .
        ,     .
,   ,   ,    .    
  1024 . (        
,      512 ).     400  -

,    0  399. 400-      
                                                       93
                       7.    .


  .        400 . 
. 10       .

                 

 
 0  1          398 399 400         798 799 800
---------   -----------------   -----------------
!/!   !       !   !  !   !       !   !  !   !
!/!   !       !   !  !   !       !   !  !   !
!/!   ! . . . !   !  !   ! . . . !   !  !   ! . . .
!/!   !       !   !  !   !       !   !  !   !
!/!   !       !   !  !   !       !   !  !   !
!/!   !       !   ! 0 !   !       !   ! 1 !   !
---------   -----------------   -----------------

                          . 10



     7.4.4.    .

    . 11    ,    -
    .

                      .

       -- ----------------------------------- 
      !  !                                 ! 0
   <   -----------------------------------
     !  !          .  .  .                !
(1014 ) !  !                                 !
              -- -----------------------------------
              !  ! (M)      ,      (L) ! +1014
              !  ------------------ "      !
              !  !                !   "  (H) ! +1016
              !  -----------------------------------
    <   !(M)   (L)! +1018
       !  ------------------ -!
              !  !        !    (H) ! +1020
              !  -----------------------------------
              !  !                         ! +1022
              -- -----------------------------------

                          . 11

         :
   -   0  1013   ,  -
             ;
,   " " -   1014    1016  
          ,  ,       
                "  ".  "  "
           ,          ,  
                 .  "  "
               ,    "-
           ".   1014-1016     -

           ,   " ";
     94                          
                       7.    .


         -     
              ,    -
              ;
  -   1021   .        
           .           7-
            ,    8- :

                                  7     8 
                     1     .
                               2       130
                6       134
                                  8       136
                                16      144

                    .
                  " ",         
                32.
 -  1022  1023 ,    ,    -
                .
            .    
         '.
             
.
               
    .      -
       (    -
     ).        
   ,      ,     
,     .       ,
   .    ,  
.
    . 12      ,  -
    .

          

                           -----
                    !   !
                           -----
                             !
                             !
  ----------               -----
                           !   !
                           -----
                   /   !   \
             /     !     \
                  -----    -----    -----
                  !   !--->!   !--->!   !
  ----------      -----    -----    -----
                   /  \
                 /      \
       -----    -----
        !   !--->!   !
              -----    -----

                         . 12


                                                       95
                       7.    .




     7.4.4.1.    .

            ,    -
,              .
       399      .  
         399 ,
    .  . 13       -
,        .

                      

          ------------------------
         !       0          !  0
     ------------------------
               !       .  .  .        !
(        ------------------------
   )            !       399        ! +798
                    ------------------------
                    !        !
                    ------------------------
                    !         177777       ! +1006
                    ------------------------
                !         052525       ! +1008
            ------------------------
               !         125252       ! +1010
          ------------------------
              !         100001       ! +1012
                    ------------------------
                    !        !
                    ------------------------
                    !  ! +1022
                    ------------------------

                          . 13

                 
 .     ,    ,  -
   .    ,         
  ,   0, -1, -2  -3.   -
         :

 0,  0 -    (  );
-1, -1 -       (          
           );
-1, -3 -  ^DBT,           ,
               ,  -
           (0, 0),          
                , 
           1022  1023.      ,    
                      
         ;
>0, >0 -      ,        
              .     -
             ',     

             .   -
     96                          
                       7.    .


             ',      ,  
           .

         ,     ,
      :
    ,    1006,   ,  -
        ;
    ,    1022,    ,  -
   (    ,        
       ).


     7.4.4.2.    .

           
,    .    
,  ,   ,        
 ,          .  
    8    ,     -
 .  ,         
63  ,         .    
      ,         
  104  .       -
      '   '.
    . 14      .

                   
         --  ------------------------------- --
         !   !             !               !  !         
         !   -------------------------------  ! 
         !   !                             !   >    
         !   -------------------------------  ! ( 1  8 
!   !             !               !  !   )  
     !   ------------------------------- --
        <    !          !  . !
 !   -------------------------------
         !   ! (M)     (L) !
         !   ---------------   !
         !   !(L) !   (H)  !
         !   !     -----------------
         !   !(H)   (M)!
         --  -------------------------------
             !         .   .   .           !
             -------------------------------   --
             !                             !+1014!
             ---------------               !     !
             !             !               !+1016!
             -------------------------------     !
             !(M)   (L)!+1018 >
             ---------------  -!     !
             !     !. () !+1020!
             -------------------------------     !
             !                !+1022!
             -------------------------------    --

                          . 14


                                                       97
                       7.    .


          ,    
   :
  -           
            .       .  -
               ,      
             1  .    (   
          )     ,  ,  , -
             ,      -
           ;
   -  ,        -
          ,     .        
           :
           0 - 0,             
                     ;
                  1,            
                     ;
           1 - 0,            7-
                    ;
                  1,            8-
                    ;
           2 - 0,             -
                    ;
                  1,         -
                    ;
  -    ,        ,
           ,            
                :
                1) ;
                2)  ;
                3) ;
                4) .
             1 .     ,    ,
                 .  . 15 ,
                   , 
            .
          
                  
             --------------------------------
             ! 7 ! 6 ! 5 ! 4 ! 3 ! 2 ! 1 ! 0! --> 
             -------------------------------- --
             !!  ! ! -!  !
             !       !-!       ! -!   > -
             !       !    !       !  !  !   
             -------------------------------- --
          
                            . 15
          
                   -
          ,   :
              00    
              01      
              10        
              11     ,   
           -     
            ,      
               .    

                        
     98                          
                       7.    .


          (^DGAM).
        -     -
                    -
           .   ,        
            .
        ,   -
,         . 
     .      -
  1.
          .
      " "        .
      ,      ,        
     .


     7.4.4.3.     .

          -
 .          :
      1)  ;
      2)     .
          .   -
             -
.           -
,        .      
 (   SET)         -
.                
    (  ).
               
  ,    .  -
           
. (       ). -
   ,     . 
,     .     
     :
   <>_< 1>_ ... _< N>
     (  )       ""  ,  
    ,      .
         ,  -
   ,     .    
        
.
   ,    :
   ^NAME(DATA)
   ^NAME(DATUM)
             "^NAME(DATA)".    
          
"^NAME(DATUM)".             
  ,      "^NAME(DATA)",   -
     "UM". "UM"        ,
    ^NAME(DATUM) (      ,  
     ;        
 ).
    . 16      .
          :



                                                       99
                       7.    .



                
       -- ----------------------------------
       !  !    !     ! 0
   !  !        !       !
-   !  ---------------------------------- --   
- <   !             !  !  
     !  !           .    .    .          !   > 
       !  ---------------------------------- --
       !  ! (M)    (L) ! N
       -- ------------------        !
          !                !           (H) ! N+1
          ----------------------------------
          !           .    .    .          !
          ----------------------------------    ---
          ! (M)            (L) ! +1014!
          ----------------- "      !      !
          !               !   "  (H) ! +1016!
          ----------------------------------      ! -
          ! (M)    (L) ! +1018 >  
          -----------------  .!      ! 
          !       !       (H) ! +1020!
          ----------------------------------      !
          !                   ! +1022!
          ----------------------------------    ---

                          . 16

     -           
          ,     ,   
          ;
    -          ,
               .        
             ;
  -  N        .
                   .
                ;
    -     ,    ,    
          ,     .   
            ,          
              .


     7.4.4.4.     .

                
        .    
   ,       .  
    -     .
    . 17      .
           :
     -           
          ,    ;
      -           
          ,       .    
              ;


    100                          
                       7.    .



                
          ----------------------------------
          !    !     ! 0
          !        !       !
          ---------------------------------- --   
          !             !  !  
          !           .    .    .          !   > 
          ---------------------------------- --
          !          !    !
          ----------------------------------
          !           .    .    .          !
          ----------------------------------    ---
          ! (M)            (L) ! +1014!
          ----------------- "      !      !
          !               !   "  (H) ! +1016!
          ----------------------------------      ! -
          ! (M)    (L) ! +1018 >  
          -----------------  .!      ! 
          !       !       (H) ! +1020!
          ----------------------------------      !
          !                   ! +1022!
          ----------------------------------    ---

                          . 17

  -  N       .  
                   ,  -
            ,    ;
  -           ,
              .         
            0  255;
 -      .      0  
          255 .      -1.


     7.5.     .



     7.5.1.      .

    . 18 ,         
,        .
    ,   . 18,   -
  .         ,
   .      
- ,             
         -
 .       -
 ,       
.
     ,         -
  ,         
,        .    
       ,        

           .  
                                                      101
                       7.    .



                

            /           ---------------
           !            !   !  
           !            ---------------
           !               /
           !     ---------/--------------------------
           !             /
           /        ---------------    
     <         !         !  
    \        ---------------  
           !           /
           !     -----/------------------------------
           !         /
           !    -------------------   
           !    !  = "" ! 
            \   -------------------

                          . 18

        -
        ,  
  .
          .    ,
           .
     '    ,     -
     : "".       
   ,      -
           
 .         
       .
    . 19      ,   -
 ,     .


     7.5.2.       .

             -
 :
      1)  '    ;
      2)       .
         ,    
    '     .  
      (   
 ) ,          
  .
     ,  ,    ,   
   :        
   .  ,         
    ,       
,              
.
    ,            ,  
  ,      KILL -
   .  ,      -

  ,  .      KILL
    102                          
                       7.    .



               

                      
-   -         ------------------
 -                       ---->!X         =DATA !
                              !    !X(1,1)    =DATA !
                                    !    !X (1,2)   =DATA !
                        ----------  !    ---------!--------
                  ----->! X      !---             V
                  !     ----------       ------------------
                  !     ! X(2,4) !------>!X(2,4)    =DATA !
                  !     ----------       !X(3)      =DATA !
                  !     !        !       !X(3,1)    =DATA !
                  !     ----!-----       ---------!--------
                  !         V                     V
---      -------- !     ----------       ------------------
! !  --->!X     !--  -->!X(3,8)  !------>!X(3,8)    =DATA !
---  !   --------    !  ----------       !X(3,8,1)  =DATA !
!X!---   !X(3,8)!-----  !X(7,4,3)!---    !X(4)      =DATA !
---      --------       ----------  !    ---------!--------
! !      !X(11) !---    !        !  !             V
---      --------  !    ----!-----  !    ------------------
                   !        V       ---->!X(7,4,3)  =DATA !
                   !    ----------       !X(8)      =DATA !
                   ---->!X(11)   !-----  !X(8,1)    =DATA !
                        ----------    !  ---------!--------
                        !X(13,2) !--  !           V
                        ---------- !  !  ------------------
                        !        ! !  -->!X(11)     =DATA !
                        ---------- !     !X(11,1)   =DATA !
                                   !     !X(11,1,2) =DATA !
                                   !     !X(11,1,2,3)=DATA!
                                   !     ---------!--------
                                   !              V
                                   !     ------------------
                                   ----->!X(13,2)    =DATA!
                                         !X(13,2,1)  =DATA!
                                         !X(14)      =DATA!
                                         ------------------
                          . 19

  ,         
     " ",     -
    .         
   .        
  ,   ,        
 ,       ,   .
    ,        -
,     (      
),   KILL     ,    
      .     
   ,     .





                                                      103
                       7.    .


     7.5.3.   .

        ,    DY.  -
 ,    , ,   -
  ,   <DKRES>   ,    
    .      -
     ,          
 (        -
).
   ,      ,       
SET  ZSAVE   <DBOVF>  <DKPUL>,     
  .    ,        
 .


     7.5.4.      .

        , '  -
 '   .      -
                
 .        
               
(^DGAM).
     ( 1)       .   -
  ,     ,    -
   .     ',   -
    ,     ^SYS    
' 1   ,           
         .    
    -       
 SET,       <DBOVF>.


     7.5.5.     .

   ,      ,      
    :
      1)            ,  
                   -
         ;
      2)   ;
      3)   .
            ,
     .


     7.5.5.1.    .

           , 
      .   -
    ( )    ,    
        .
          .  
  ,         
  ,           
   .


    104                          
                       7.    .


           "-
   ".         ,
     ,           
  (  )  .   
  ,    (,    -
),       .
             ,    
.  ,         
   .
      ,        (
),   ,  .    
.
   ,      20  ,  
 ^A  ^T.  ,           
1000 ,     1  1000.   ,    
    (1), (2), (3) ..., (1000).
         500      -
   ,        
      ,  -
   1,     ,       
    ,     2.

    1
1-  2-  3-  ... 20- 
  ^A(1)      ^B(1)      ^C(1)         ^T(1)
  ^A(2)      ^B(2)      ^C(2)         ^T(2)
  ^A(3)      ^B(3)      ^C(3)         ^T(3)
  ^A(4)      ^B(4)      ^C(4)         ^T(4)
   ...        ...        ...           ...
  ^A(500)    ^B(500)    ^C(500)       ^T(500)

    2
1-   2-  3-  ... 500- 
  ^A(1)      ^A(2)      ^A(3)          ^A(500)
  ^B(1)      ^B(2)      ^B(3)          ^B(500)
  ^C(1)      ^C(2)      ^C(3)          ^C(500)
  ^D(1)      ^D(2)      ^D(3)          ^D(500)
           .       .       .
  ^T(1)      ^T(2)      ^T(3)         ^T(500)

         ,    
1,       ,    
:
      1)           
                     
          .         -
           .     ,    -
          2,    ,  , , -
         ,    ^A,   ,   -
            ,       ;
      2)         ,  
          1         
              .
             ,    
   .       
          -

,          '   -
                                                      105
                       7.    .


 .


     7.5.5.2.  '   .

        (  ^UCIADD),   
            
 .  ,       
        .  
         
       :
      1)            
                    
             ;
      2)            .
                50:1         
            .
       ,      -
 ,    ,         
  ""  .      -
,   ,   ,  '   -
,     .    -
,               
,            
             -
    .        
 .
    . 20       '.
    '          '  
     .
    . 21           
  .


     7.5.5.3.    .

            
'  ,    .  ,   ,  -
   :
      1)       (^DGAM);
      2)     (^%GLOMAN).
     '          .
       ,   -
    .       
    .
              
  ,     '  ,    
  ^%GLOMAN.          ,  
            
  .         
  ^%GLOMAN,            
          -
 :
      1)    ,    ,  
             ,     .
             ,   -

           ,      ';
    106                          
                       7.    .



                      '
   '                        ------------------
--------------------                    !////////////////!
!     1         !                    !/////////!
--------------------                    !////////////////!
!  -!------------------> ------------------
!    !                    !     !
--------------------                    !      1  !
! .   !- - - - - - - - - > ------------------
!          !                    !    !
--------------------                    !        !
!  .!------------------> ------------------
!           !                    !      !
--------------------                    !    1    !
! .   !- - - - - - - - - > ------------------
!.   !                    !    !
--------------------                    !. !
! .   !- - - - - - - - - > ------------------
!.       !                    !    !
--------------------                    ! .    !
!   .  .  .        !        ----------> ------------------
--------------------        !           !     !
!     2         !        !           !    2    !
--------------------        !  - - - -> ------------------
!  -!--------- !         !    !
!    !          !         !        !
--------------------          ! ------> ------------------
! .   !- - - - -   !       !      !
!          !            !       !    2    !
--------------------            !  - -> ------------------
!  .!-------------  !    !    !
!           !               !    !. !
--------------------               ! - >------------------
! .   !- - - - - - - -  !  !    !
!.   !                 !  ! .    !
--------------------                 !  ------------------
! .   !- - - - - - - - -   !   N   !
!.       !                    ------------------
--------------------                    !                !
!                  !

---------    (   );
- - - - -   .

                          . 20

      2)    ,    ,   -
             ,        .
             ,    -
          ,     ,  -
                  ^%GLOMAN.  
                 -
         ,        ,      
            '  ;



                                                      107
                       7.    .



           
                   

                           N               
      N             
---------------------  ---------------------------------- 
!  1!  !           !           !        ! 
---------------------  !           !           !        ! 
!     .  .  .       !  ---------------------------------- 
---------------------  ^     ^     ^    
!   !  !    !    !   
-----------  !---   !   !  
!         !    !     1 !  2 !  3
!         -----------              !           !
!     .  .  .       !              !           !
---------------------              !           !
!  2!              !           !
---------------------              !           !
!     .  .  .       !              !           !
---------------------              !           !
!   !              !           !
-----------  !---------------           !
!         !    !                          !
!         -----------                          !
!     .  .  .       !                          !
---------------------                          !
!  3!                          !
---------------------                          !
!     .  .  .       !                          !
---------------------                          !
!   !                          !
-----------  !---------------------------
!         !    !
!         -----------

!                   !

------       
              (  ).

                          . 21

      3)           
                   ,  
          ,     .  ,  -
                ,  
              .


     7.5.5.4.     .

           
 (^%GLOMAN)           
(^DGAM)       ,      
             

 .      
    108                          
                       7.    .


  ,  '   25 :
      1)            
           .           
              ,     -
         .    (399  )   -
             ' 25   ;
      2)             
             ,          
            .
     ,  '  25 ,     
       .     
   ,       ,
    '  .     -
       .












































                                                      109
                     8.   .


      8.   .

          .
         ,  -
   ^%LIB,        
        .   
   ,    -
 ^%UTL,         
  .
     ""          
 %MENLIS.


     8.1.   .

        "%",     
    ,      -
 .
            -
 :
      1)     ;
      2)    ;
      3)    ().


     8.2.  .



     8.2.1. .

            
   .
      ,     -
 ,      <>.  ,    -
    ,       <?>    <>.
   , ..        -
.
    ""        .    
,   ,   ,  -
     .        
 <>.
          ,      
   <>.
             ,    
 (^)  <>.
    ,  ,  ,     
  " ",     .      
    -   -,    
       (      
  ).
    0   ,     -
.
         .




    110                          
                     8.   .


     8.2.2.  .

           -
:
      1)  ,    ,   
         ,   DO, :
            >D ^%RD
                 
         ;
      2)        ,  
             , :
            UCI:SWG:%GS
              ^%GS;
      3)         
          DO  GOTO.       
             , :
            ST<>D ^%D W " " D ^%T W !!<" SS1...",!
           ST        ,  -
           USE,   2   :
            " SS1..."


     8.2.3.  .

               <>/C
 ,       .
        ,    - 
  -,    ,    -
.
                
          DO.


     8.2.4.    .

              
 .   ,    -
   ,     .


     8.3.   .

            ,  ..
,  ,    ,     
  ,       .


     8.3.1.     .

             .
%COPYBR -   ().
%G      -   .         0  
          IO^%G.
%GC     -    '  .
%GD     -  .



                                                      111
                     8.   .


%GDE    -   .
%GDEL   -   .
%GE     -   .
%GLOMAN -       (       
          ).
%GRF    -   .
%GSEL   -    .
%GSF    -   .
%GTO    -  .
%GTI    -  .


     8.3.2.    .

            .
%COMM  -        .
%FL    -     .
%RC    -    '  .
%RCMP  -  .
%RCOPY -     . .
%RD    -  .
%RDE   -   .
%RDEL  -  .
%RR    -  .
%RRF   -   .
%RS    -  .
%RSF   -   .
%RSC   -     .
%RS   -    .
%RSEL  -   .
%SUM   -     .


     8.3.3.   .

               
.
%ATT     -    .     ()  -
           .
%D       -    $H  --  //.
%DET     -         .
%DKTEST  -   .
%DO      -       (    %DO)
            .
%DOC     -       .
%ER      -   .
%GUCI    -  .       .    -
            %UCI   ,  %UCN - .
%H       -    .  .    
            .
%HELP    -    .
%IOS     -       -.    -
           .
%JOB     -     .
%LIB     -   .



    112                          
                     8.   .


%M       -    .
%MENLIS  -    .
%OD      -           (  
           %OD)  .
%STRTAB  -     .
%SY      -  .
%T       -     $H  :.
%TIMF    -       .
%TIMTEST -           
           .
%UTL     -   .
%VAR     -     .

          .
      ^%MTCHK     . -
              -
     .      :
           1)        
              ^%MTCHK.      $ZA -
                    -
                -.
                        .
                   > 47 U 47 D ^%MTCHK
                         
                     ,  47,   .
                      ^%MTCHK,   -
                      $ZA    -
                     ,   $ZA,  1;
           2)  ^%MTCHK   ,   %SET.
                        .
                   >D %SET^%MTCHK
                   >ZW
                       ^%MTCHK    -
                         -
                   ,            
                         -
                                    
                   /.
               ,       ,
              ..  1:
              %MTBOT -      .
              %MTEOT -      .
              %MTERR -    $ZA    -
                        ,    .
              %MTLER -  .      -
                       ,      
                        .
              %MTON  -      .
              %MTPIP -    .
              %MTTMK -      .
              %TTYP -    :
                         10=TU10  TS03
                         11=TS11, TSV05, TU80
                         16=TE16, TU16, TU45, TU77
              %MTWLK -     .



                                                  113
                     8.   .


                      ^%MTCHK  
              .
                 >D %ST^%MTCHK
                 >ZW
                 %MTBOT="$ZA\32 2"
                 %MTEOT="$ZA\1024 2"
                 %MTERR="$ZA\32768 2"
                 %MTLER="$ZA 2"
                 %MTON="$ZA\64 2"
                 %MTPIP="$ZA\2 2"
                 %MTTMK="$ZA\16384 2"
                 %MTTYP="16"
                 %MTWLK="$ZA\4 2"
                         
               IF.        ,  
                  .










































    114                          
                        9.  .


      9.  .



     9.1.   .

    ,     ,    -
       :
      1)       (  
          ,       );
      2)           ,
                ;
      3)        (
           DO   ),        
          ,         DO
         ( DO  ),      
           .     -
             .  [2];
      4)      . 
            ,    
             ,    ,
              .  ,  -
             XECUTE   ;
      5)          -
             ;
      6)         DO, GOTO
          XECUTE,      ,    -
               .      
              ,     
                ;
      7)     ,      FOR,
          ,   ,     ,
              ;
      8)       ;
      9)      ;
      10)                
            ,    -
         .
           
  ,          
.        ,    
     .


     9.1.1.     .

            ,    
   .         ,  
,     ,    ,  
     .    -
              ,
  ,    .
             
,       ,   -
   GOTO  DO.



                                                      115
                        9.  .


             -
   ,     . -
   .  [2].
    DO     .   
  ,     .  
   ,         
HALT  QUIT.    ,    QUIT  
    .
      DO  ,       
 .   DO       
  .
          ,  -
 DO     ,      
   .   22   -
         ,
    ,        
DO.

        
           DO

                      A
                   --------
                   ! ...  !
                   ! D ^B !
                   ! ...  !
               --> ! HALT ! ---
               !   --------   !
               !             !
               !   --------   !
               --- ! ...  ! <--
                   ! D ^C !
               --> ! QUIT ! ---
               !   --------   !
               !             !
               !   --------   !
               --- ! ...  ! <--
                   ! D ^D !
               --> ! QUIT ! ---
               !   --------   !
               !      D       !
               !   --------   !
               --- ! ...  ! <--
                   ! QUIT !
                   --------

                          . 22

    "D"          QUIT  
   ,     DO ^D  
 "C" .  22 .       QUIT, -
     ,      -
 DO ^C   "B".    QUIT,   -
    ,      DO ^B  -
 "A".



    116                          
                        9.  .


      ,         
     ,          
  .    .  ,
     .    
 ,  ,      
    .
           , 
    ,    -
 DO.           -
 .
   , ,     "A", -
   . . 22,  ,       -
.      "A"   ,   -
 :
        ...
LABLA   DO ^B,^C,^D
        ...
        ALT
           -
    "A".  . 23     
   ,       .
        
 . . 22,  : A-->B-->C-->D-->A.      
    .

            ,
              "-"

                              A
                        --------------
                        !   . . .    !
                        ! D ^B ^C ^D !
                        !   . . .    !
               -------> !    ALT    ! --------
               !    --- -------------- <---   !
               !    !       !   !         !   !
               !   V       !  V         ! D V
              --------     --------     --------
              ! ...  !     ! ...  !     ! ...  !
              ! QUI !     ! QUI !     ! QUI !
              --------     --------     --------

                          . 23

    ,   ,        
   ,        
  .            
        $ZTRAP  ,  
   .       
 $ZTRAP,   ,     -
       .







                                                      117
                        9.  .


     9.1.2.     .

         ,  
  DO  ,       . 
        -
 DO   .  [2].
          ,      
.    ,      ,  
    ,    -
:
      1)              
         ,   . 24;
      2)         -
          ;
      3)    ,    
                 .

              
                        

 ------------------------ --
 !    1     !  !    
 ------------------------   >   
 !    3     !  !     
 ------------------------ --
 !    .   .   .         !
 ------------------------ <---  
 !          !      ( 
 !             !         )
 ------------------------ --
 !    .   .   .         !  !    
 ------------------------   >   
 !    N     !  !      
 ------------------------ --
 !    !
 !                !
 ------------------------
 !    !
 ------------------------

                          . 24



     9.1.3.      .

               
,         .  -
           -
      .
          ,    -
    ,        
   .            ,
   ,     -
,    .



    118                          
                        9.  .


              ,
            .
   , ,  ,       XECUTE  
 ,   : "XECUTNOW".   "XECUTNOW"  ("-
 ")  ,         .
  , ,          , 
      : "XNOW".     
            -
      .


     9.1.4.    .

                 
,         .      
       :
      1)     ,      -
         ;
      2)      .


     9.1.5.     .

        (?)   , -
  ,   , ,    
.        -
 /  ,        
    ".". (         .
[2]).
          ,    ,
       READ. :
   R ": ",X
 X -  ,         
.
            
 .       , -
  ,  ,        ,  
. ,  ,       
    (   ).  ,  , 
       -
  ,    :       
   READ,          
 ,       .
          ,    
   ,      .  
IF      ,     
 .      ,   
   .      -
 ,     ,  , -
   -    .        
     ,        
     TAGI  ,   :
TAGI R ": ",A Q:A=""
 I A'?1U1N G AGQ:A="",HELP:A="" G IR
 . . .
(  )

 . . .
                                                      119
                        9.  .


 G AGI ;    
IR W !,"  -   """""
 W "   '" G TAGI


     9.1.6.   XECUTE   .

    XECUTE       "@"      
 .        -
,         -
    .
    XECUTE         -
 :
      1)  XECUTE     ;
      2)             
           .
     ,  ,   -
  XECUTE    .  ,    ,  
         -
,   .
      XECUTE       
 ,        ,    
.  XECUTE,  ,       
.      ,   -
      .
           
.  ,       -
         .   
   ,    -
    ,       -
  , ,   ,    
 . :
TTT S COND="IF IND=@F(@NODE,@POS)"
 I @COND W ""
 E  W " "
            
 .       -
          
.     -,   ,  
    ,    .


     9.2.    .



     9.2.1. ,   .

   ,   ,   
       .  -
    ,     
       .
        ,      
      ,     
,   ,   :



    120                          
                        9.  .


      1)           
         ;
      2)    ,    
               ;
      3)    ;
      4)           
              .
           -
             
.          -
,           
   .


     9.2.2.   .

    ,         -
 ,      ,   
  :
      1)    ;
      2) ;
      3)  ;
      4)    .
           , 
  ,     ,      
  :
      1)  ;
      2)   ,   ,    
         ;
      3)     ;
      4) ,     ;
      5)  .
     ,     ,   
  .
            -
,   .    
   .         
";". :
   <> ;  
        .    
 ,      '      
,          -7.
 ,      ,   -
    .       
    ,    ,     ,  
.
         :
_::=_;[_]
                [_];[]
_::=P
      (ZS <>).
_::=H:____
  %MC!
:=__,<__,>*
      P,       (ZS <>).



                                                      121
                        9.  .


            -
  %HIBRID.


     9.2.3.    .

                 
 "%".   ,       "%",
       .   -
            
.          -
   .
          ,    ,
    .  ,      
     (BILL): ^BAC, ^BF1, ^BF2.
    ,    ,      
    ,      
  .          
         -
.     ,       
   .


     9.2.4.    .

        ,  , 
,      .    
   .      
   ,      :  ""  
   "".
                
,          ,
   .
              
        "".    -
 ,   "",       
          ,    
  .      ,
    ,    , .
          .
        ,      ,
        ^%UTL,    
     .
   ,    ,    , -
      .  :
      1)         ,  
               .       
          ,           
         .
             ,           
         ,      ">".     
          ,       .
                 ,   -
                 .




    122                          
                        9.  .


                   .
              > 7--90 <>
                         
               ,      
                           
              ,  .
                   .
              W " "
               R !,">",
                   :
               
              >
                        
                    ;
      2)        -
          ,    .       
         ,   ,     . -
                 -
                  .
                   .
                <280-75-14>
                      -
                          
                 .
                      -
          .         
         ,     .
             <12.00>
                  -
         .  ,        -
          :
          1)     ;
          2)           
             ;
          3)        ;
          4)         
             ;
          5)            
                  ,    -
                  "";
      3)    ,  ,   
              .
                   .
               .    "?"      
              ;
      4)  ,     ,  
          ,        ,  
                    
         .         
          ,        -
         .         -
         ,         
         ,      (?)   "HELP".  
                -
         .      :



                                                      123
                        9.  .


             ?
            !    ,
            !    :
            !001   
            !039  
            !301  
            !100  
                    -
         ,    ,         .
           , ,     -
          ,    ,  
                 -
         .
                   -
                , 
              .    
            : ^L   ^LIST.  ,    
             ;
      5)           
            .  , ,   -
              ,    
         .    -   -
         ,       .    
               (-).    
           ,  ,    -
          :
             <52>-
             >
      6)       ,  
              .   , -
         ,       , 
               (^)      "
         ",          
         ,       .
                      -
              ,     
            .   ,    
               .  ,  
           ,       ,  
          .
                    ,   
         ,    ,           
              ,    ,
          ,            
         .             ,  
            ,        -
           ,         
                (  
         ,    "").         ,  
               ;
      7)  ,   ,     -
                  .  -
         :
            ^Q  ^QUIT.
             READ,      ,    -
             ,       -

             ("").         
    124                          
                        9.  .


                 .  
                 ,  
               .


     9.3.    .

    ,         
,   ,     .
        ,    
 , ,  " ".
          .
      ,      16 , 
      0  15  .
    ,      ,   -
:  ,   ,    
,       ,      ,
  ,     2.   -
   2,     . ,   ,
 ,    12     AAA    
,   :
   I AAA\4096 2
         0  11 ,   12   
 AAA   ,    ,     
  .
              
.  X  ,   .
        
    0                     X#2
    1                     X\2#2
    2                     X\4#2
    3                     X\8#2
    ,              ,
              
   ,      .    
 LOC        .
LOC\256     ;    8  ( 
                 )
LOC*256     ;    8  ( 
               )
    :
LOC\256#2   ;       
            ;   ,    8
    ,               
 .        2, -
   (   )   ,   
. ,     0-8,     -
   512.             
   2.      -
  :
LOC\512#8   ;   ,   
            ;      9  11
LOC#256     ;   ,   
            ;     
    ,     (      -
),        2.


                                                      125
                        9.  .


             
  $ZA (  ),   -
   (  2)     . 
    (    ),  -
  RR,          
.
A S A=$ZA F K=0:1:15 D ERR:A#2 S A=A\2



















































    126                          
                10.   .


      10.   .

              
         -
 .
             
 ,      %MC.


     10.1.  .

        ^%MC(NAME,"T"),  NAME -  -
.                       ^%MC(NAME,"T",1),
^%MC(NAME,"T",2),...         -
.       (  ,  
,  254  ).
       ^%MC(NAME)      ^%MC(NAME,"O","R"),
  , ,    ^%MC(NAME,"T").
      -, ..  
    (  ).


     10.2.    .

         :
      1)  ;
      2)  ;
      3)     $ZF;
      4)  $ZCALL-.


     10.3.  .

       -,      
  .          
              
  .
            
 -       :
   $ZF(:[_])
           --
  ,   ,    -
     ,   ( 
 ).         
,           -
,          .
       ,      
   .
    ,         ()  -
       (  -
   ).
          PRINT,    
  -   ( ),   
       () -
 .



                                                      127
                10.   .


        %HIBRID.


     10.4.  .

             
,     .
        ()    -
   -     :
   $ZF(.:[_])
 '' -  ,      
 .      ,  -
 <FUNCT>.
         ,    
   ,        
 (   ).
    ( )        
%HIBRID.
    ,         -
        -
    $ZF    .  :
   $ZF(CODE1[,CODE2...]:[_]),
    CODE1,CODE2...      
 .  ,  ,     ^%MC    
NAME,     CODE_I ^%MC(NAME,"T",I).
          -
:
      1)   CODE_I         (
          )    ,    ;
      2)        .
              
   <STORE>,       (
 SYSTAB)    .
      $ZF-    -
   -     .       
     ( ,  ,   
      ) .


     10.5.  $ZCALL-.

      -   
(  )    ,   -
       ,    
        $ZC.
      $ZC - :
   $ZC(_[,_]).
    $ZCALL-          -
   ZCALL (D ^ZCALL).        
     ,      (  
              
  ) $ZCALL-        $ZCALL-,
..        .   -
    ,   , 
    $ZCALL-,    <FUNCT>.



    128                          
                10.   .


     ()   $ZCALL-  ,  
        ( STUBLD, SYSGEN).
       $ZCALL-  ,   -
  ,        -
.


     10.6.   .

           ^MT    ^%MC  (
^MT(<>,"X") -   , ^%MC(<>,"T") -    
).     ^%PRMACRO.     -
 .   :
>S INV=^%MC("INV","T",1) W $ZF(INV:123456789)
987654321
>
         .
    :
   _ <>* ( )
   _ ::= [$ZCALL] [$ZFUNCTION]

      ARG1,ARG2[,ARG3]                 ($ZC,$ZF)
          :
      1)  ,    ;
      2) C -  ;
      3) T -    ;
      4) L -  .

        .
 >S A=$ZC(B,S,0,0,1,2,18) ;    ,
                     ;   0,1,2,18 
 >S A=$ZC(B,S,A,10)       ;     10
 >W $ZC(B,L,A)
 0,1,2,10,18
 >W $ZC(B,T,A)
 5

     IT ARG1,ARG2                      ($ZC,$ZF)
        ,        
 (   1, ,       ).

     CT ARG                             ($ZF)
           (5211).  
 %MCT.    -  :
   0 -  ,
   1 -  ,
   2 -  ,
   3 -   ,
   4 -   ,
   5 -  ,
   6 -  ,
   7 - .
     1,    ,      -
 (  -  1).     2      
   ,    .     -
     CSR ( 8-15).       

 %MCT.
                                                      129
                10.   .



     DS ARG                            ($ZC,$ZF)
        .

        .
>S B=$ZF(...DSP...:"  ABC     EDF ") W B
ABC EDF

     INV RG                            ($ZC,$ZF)
     .

     R ARG1,ARG2,ARG3                  ($ZC,$ZF)
       ,    , -
   ,      -
.

        .
>W $Z(TR,"AABCD","ABD","123")
112C3

     S ARG1,ARG2                       ($ZF)
      .   -   ,    -
. ,   $ORDER,  ,   -
  ,   ,   .

     I94 RG                            ($ZC,$ZF)
    +1  -1   (     )  
    94.              
33-126(.).

     %PP ARG                            ($ZF)
        .

     %PR ARG                            ($ZF)
          .

     %RF ARG                           ($ZF)
           --
.

     RR RG                             ($ZC,$ZF)
       .

     L ARG1,ARG2                       ($ZC,$ZF)
          .    
:
   <- .>_","_<-   >,
   :
   0 -  
   1 -     
   2 -    
   3 -  
   4 -  





    130                          
                10.   .


     MTK2A ARG                          ($ZC,$ZF)
      MTK2  ASCII.
    -    MTK2,     .    
    MTK2,          
<FORMT>.    -   ,  -  -
 .

     AMTM2 ARG                          ($ZC,$ZF)
      ASCII  MTK2.
    -    ASCII.      <FORMT>.

     TICKS                              ($ZC,$ZF)
         .

     SCAN ARG                           ($ZF)
          (   -
      ).

     NXL ARG                            ($ZF)
   ARG ::= _. ! .
      -    ,   
      ,    
,   .

        .
>S A(1)=2,A(2)=1,A(3)=5,A(4)=17
>S B=$ZF(..."NL"... A(2))
>W B
 A("1")

        .
>.................
>S B=$ZF(..."NL"...  A)
>W W
A("4")

     CRB ARG1,ARG2                      ($ZC,$ZF)
     ,    .

        .
>S A="ABCDEF",B="FOPRD"
>S C=$ZF(..."CRB"... A,B)
>W C
FD

     SEP ARG1,ARG2,ARG3                 ($ZF)
      (ARG1),       (ARG2)  
   (ARG3).

        .
>S A="11,22,33"
>S B=$ZF(..."SP"... A,",",B)
>ZW B
B=3
B(1)=11



                                                      131
                10.   .


B(2)=22
B(3)=33

     PCS ARG1,ARG2,ARG3,ARG4            ($ZF)
    ARG1 - , ARG2 - , ARG3 -  , ARG4 - 
.
          ,   -
 .             
.  ,     .

        .
>S A="(ABC,DEF),MM,""VX,YZ"",DONE"
>S B=$ZF(..."PCS".. A,",",4)
>W B
DONE

     RVS RG                            ($ZC,$ZF)
          ( INV).

        .
>S ="ABCDE"
>S B=$ZF(..."RVS"... A)
>W B
EDCBA

     KSM <ARG>*                         ($ZC,$ZF)
           .  
      2,     -
           .

     PAI ARG (PAO ARG)                  ($ZC,$ZF)
       (ARG) -    .

        .
>S A=-1234.5678
>S B=$ZF(..."PAI"... A) W B,!,$L(B)
!#KVX
5
>S C=$ZF(..."PAO"... B) W C,!,$L(C)
-1234.5678
10

     CON <ARG>*                         ($ZC,$ZF)
    "CON"     ,   N .
     = 1___ + _.

        .
>S A="AAAA",B="BB",C="SSSS",D=123
>S F=$ZF(..."CON"... A,B,C,D)
>W F,!,$L(F)
AAAABBSSSS123
17






    132                          
                10.   .


        .
 >.....................
 >S X="A,B,C,D",F=$ZF(..."CON"... @X)
 >W F,!,$L(F)
 AAAABBSSSS123
 17

     CNG ARG1,ARG2                      ($ZF)
    ARG1 -  ; ARG2 -   (  "CON").
              ,  
       .

        .
>S A=111,B=222,C=333,D=444
>S X="A,B,C,D"
>S Y=$ZF(..."CON"... 555,666,777,888,999)
>S Z=$ZF(..."CNG"... X,Y)
>W Z=$ZF(..."CON"... 111,222,333,444,999)
1

     PIC ARG1,ARG2[,ARG3]               ($ZF)
    ARG1 - ,   "CON",  ARG2  -    
; ARG3 -   .
     <ARG1>    <ARG2>   .   <ARG3>,  
    <ARG2>  <ARG3>     .

        .
 >S A=$ZF(..."CRN"... 111,222,333,"WWW",444)
 >S B=$ZF(..."PIC"... A,4) W B
 WWW

     0ST < >,< 0-2039>    ($ZC,$ZF)
      .

     1ST < >,< 0-254>    ($ZC,$ZF)
      .

     0AD < 1>,< 2>   ($ZC,$ZF)
      .

     1AD < 1>,< 2> ($ZC,$ZF)
      .

     0CL < >,< 0-2039>    ($ZC,$ZF)
      ,   "0ST".

     1CL < >,< 0-254>    ($ZC,$ZF)
      ,   "1ST".

     0NX < >,< 0-2039>    ($ZC,$ZF)
       ,        "0ST",
 '-1',   .






                                                      133
                10.   .


     1NX < >,< 0-254>    ($ZC,$ZF)
       ,        "1ST",
 '-1',   .

     0TS < >,< 0-2039>    ($ZC,$ZF)
    1,      ,  0,    .

     CAB ARG                            ($ZC,$ZF)
     ,    ASCII,   (-
 2-).

     CBD ARG                            ($ZC,$ZF)
       .

     CDB ARG                            ($ZC,$ZF)
          ASCII.

     CDO ARG (COD ARG)                  ($ZC,$F)
         .

     CMP ARG1,ARG2                      ($ZC,$ZF)
    ARG1, ARG2 - ,   "CON".   
 .  -  ,       -    
 .

     CRL ARG1,ARG2                      ($ZC,$ZF)
    ARG1, ARG2 -  .
     1,   , 0 -   .

     CRP ARG1,ARG2,<>        ($ZC,$ZF)
    ARG1, ARG2 -  .   .

        .
 >S A="A,P,R,M",B="P,G,O,A"
 >W $ZF(..."CRP"... A,B,",")
 A,P

     TGL G,ARG1,ARG2                    ($ZF)
    ARG1, ARG2 - .       -
  . :
   1 -  ;
   0 -    ;
   "" -   .

     INR RG1,ARG2                      ($ZC,$ZF)
    ARG1 - ,   "CON".      
    (ARG2)   ,  .

        .
>S A=$ZF(..."CON"... 111,222,333,444,555)
>S B=$ZF(..."INR"... A,".")
>W B
111.222.333.444.555





    134                          
                10.   .


     KAV ARG                            ($ZC,$ZF)
            .

     KPL ARG1,ARG2                      ($ZF)
             (ARG1),
   (ARG2)    .

     TGL L,ARG1,ARG2                    ($ZF)
   ,  <"TGL" G,...>.

     NB ARG                            ($ZC,$ZF)
         1.

     PIP ARG                            ($ZC,$ZF)
     -   ,   "CON".

     RF < >            ($ZF)
        $ZR.

     ST < >,< >    ($ZF)
    .   = 1.      -
  "CON".

     0ML < >,< >  ($ZC,$ZF)
    ,        
  .

     1ML < >,< >  ($ZC,$ZF)

     0SB < >,< >  ($ZC,$ZF)
        , ..  ''.

     1SB < >,< >  ($ZC,$ZF)
        , ..  ''.

     INS <N>,< >,< >  ($ZF)
            <N>  
 (  %XK, %XN..%NA, %).

     LOC ,N_[,_]   ($ZF)
     - 1  (A - ZA, D - ZD, L - LOCK).
        ,        
.   D,L    ,    -
.       .    -  0
 1     .

          .
     >I $ZF(..."LOC" A,14,^A(1,2,3):5) D ^PROG
        ^A(1,2,3)  ,    ZA -
        14   5 ,      
       ^PRLG.
     >I $ZF(..."LOC" L,10,ABC(5,6,7):5) D ^PROG
      ,    10    LOCK, .. ,  -
     ,   ,     -
      LOCK   10.
     >I $ZF(..."LOC" L,5)

       ,      5 
                                                  135
                10.   .


      LOCK.    1.
     >I $ZF(..."LOC" D,5)
      ,   ZD, ..    ,  
       ZA.
    = 1,   ,   =  0.      
     ,         
  .
      $T.

     ANY ARG1,ARG2 [,ARG3]              ($ZF,$ZC)
      ARG1,     ARG2.    ,
   0. ARG3 -   .      ,    
 .

     NOTANY ARG1,ARG2[,ARG3]            ($ZF,$ZC)
          ARG2 .

     PRNS ARG1,ARG2                     ($ZF,$ZC)
   ARG1 - , ARG2 - .      $C(0), -
   ,   ARG2.
: $ZF(...:"",5)="-"
                  "",6)="-"
                  "",5)=""
   ,   -,    ,  "'"    "-"
.
        ( [ / "
        . , ! ? ) ] / ; " :
        ARG2.

     CB ARG1,ARG2                       ($ZF,$ZC)
      , ,
   $ZF(.....:"","")="";
   $ZF(.....:"","")="".

     DF ARG1,ARG2                       ($ZF,$ZC)
     ARG1, :
   $ZF(.....:"","")="";
   $ZF(.....:"","")=""  ..

          .
            ^%MC -
                -
     .















    136                          
                           .


       .

   1.        .  
.
   2.        .  
.
   3.      . 
   XDT.  .
   4.      . 
 .
















































                                                      137



                                  .


. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     3
 1.     .  . . . . . . . . . . .     4
 2.  . . . . . . . . . . . . . . . . . . . . .     5
 3.   .  . . . . . . . . . . . . . . . . . . . . .     6
3.1.  .  . . . . . . . . . . . . . . . . . . . . . .     6
3.1.1.  . . . . . . . . . . . . . . . . . . . . . . .     6
3.1.2.  .  . . . . . . . . . . . . . . . . . . . . . . .     6
3.2.    .  . . . . . . . . . . . . . . . . . . . .     7
3.2.1.   . . . . . . . . . . . . . . . . . . .     7
3.2.2.   . . . . . . . . . . . . . . . . . . . . . . . . . .     8
3.2.3.   . . . . . . . . . . . . . . . . . . . . . .     8
3.2.4.  . . . . . . . . . . . . . . . . . . . . . . . . . . .     8
3.2.5.    .  . . . . . . . . . . . . . . . . . . .     8
3.2.6.      . . . . . . . . . . . . .     8
3.2.7.      . . . . . . . . . . . .     9
3.2.8.      .  . . . . . . . .     9
3.2.9.   .   . . . . . . . .     9
3.3.   . . . . . . . . . . . . . . . . . . . . . . . . . . .    10
 4.    . . . . . . . . . . . .    11
4.1.       . . . . . . . . . . . . . . . .    11
4.1.1.   .  . . . . . . . . . . . . . . . . . . . . .    11
4.1.2.     . . . . . . . . . . . . . . .    11
4.1.3.   . . . . . . . . . . . . . . . . . . . . . . .    12
4.2.  . . . . . . . . . . . . . . . . . . . . . . . . .    12
4.2.1.  . . . . . . . . . . . . . . . . . . . . . . . . .    12
4.2.2.     . . . . . . . . . . . . . . . . . . .    13
4.2.3.   ZPRINT  ZREMOVE.  . . . . . . . . . . . . . .    13
4.3.    . . . . . . . . . . . . . . . . . . . .    13
4.3.1.     .  . . . . . . . . . . .    14
4.3.2.     .  . . . . . . . . . . .    14
4.4.    .  . . . . . . . . . . . . . . .    14
4.4.1.  ,   . . . . . . . . . . . . .    14
4.4.2.  .  . . . . . . . . . . . . . . . . . . . . .    14
4.5.     .  . . . . . . . . . . .    15
4.5.1.     . . . . . . . . . . . . . .    15
4.5.2.     .  . . . . . . . . . .    15
4.6.  . . . . . . . . . . . . . . . . . . . . . . .    15
4.6.1.    . . . . . . . . . . . . . . . .    16
4.6.2.  . . . . . . . . . . . . . . . . . . . . . . .    16
4.6.3.  .  . . . . . . . . . . . . . . . . . . . . . . . .    16
4.6.4.    .  . . . . . . . . . . . . . . .    16
4.6.4.1.  .  . . . . . . . . . . . . . . . . . . . . . .    17
4.6.4.2.  . . . . . . . . . . . . . . . . . . . . . .    17
4.6.4.3.  , . . . . . . . . . . . . . . . .    18
4.6.4.4.  . . . . . . . . . . . . . . . . . . . . . . . . . .    18
4.6.4.5.   .  . . . . . . . . . . . . . . . . .    18
4.7.    .  . . . . . . . . . . . . . . . . . . . . .    19
4.7.1.     .  . . . . . . . . . . . .    19
4.7.2.  . . . . . . . . . . . . . . . . . . . . . . . .    19
4.7.3.   .  . . . . . . . . . . . . . . . . . . .    19
4.7.4.    . . . . . . . . . . . . . . . . . .    20
4.7.5.   /C.  . . . . . . . . . . . . . . . . . .    20
4.7.6.   . . . . . . . . . . . . . . . . . . . .    21

4.8.  -.  . . . . . . . . . . . . . . . . . . .    21
    138                          



4.8.1.     .  . . . . . . . . . . . . . .    21
4.8.2.  . . . . . . . . . . . . . . . . . . . . . . . . . . .    22
4.8.2.1.      $ZBREAK. . . . . . . . . . . .    22
4.8.2.2.     BREAK.  . . . . . . . . . . . .    22
4.8.2.3.    .  . . . . . . . . . . . . . . . . . . .    23
4.8.2.4.   .  . . . . . . . . . . . . . . . . . . . . .    23
4.8.2.5.   . . . . . . . . . . . . . . . . . . . . . .    23
4.8.3.     .  . . . . . . . . . . .    23
4.9.   .  . . . . . . . . . . . . . . . . . . .    24
4.9.1.     .  . . . . . . . . . . . . . . . .    24
4.9.2.    . . . . . . . . . . . . . . . . .    25
4.9.3.   . . . . . . . . . . . . . . . . . . . . .    25
4.10.  .  . . . . . . . . . . . . . . . . . . . . . . . . .    26
4.10.1.    . . . . . . . . . . . . . . . . . . .    26
4.10.2.    . . . . . . . . . . . . . . . .    26
4.10.3.    .  . . . . . . . . . . . . . .    27
4.10.4.     .  . . . . . . . . . . . .    27
4.10.5.     . . . . . . . . . . . . . . . .    28
 5.   -. . . . . . . . . . . . . . .    30
5.1.   -.  . . . . . . . . . . . . . . . . . . .    30
5.2.   -.  . . . . . . . . . . . . . . . . .    30
5.3.  -. . . . . . . . . . . . . . . . . . . . . . . . .    31
5.4.  .  . . . . . . . . . . . . . . . . . . . . . . .    32
5.4.1.   .  . . . . . . . . . . . . . . . . . . .    32
5.4.2.   $X  Y. . . . . . . . . . . . . . . . . . . .    33
5.5.   -.  . . . . . . . . . . . . . . . . . . .    34
 6.   -.  . . . . . . . . . . . . .    35
6.1. .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . .    35
6.1.1.   .  . . . . . . . . . . . . . . . . . .    35
6.1.2.  .  . . . . . . . . . . . . . . . . . . . . . . . .    35
6.1.2.1.  OPEN. . . . . . . . . . . . . . . . . . . . . . . . . . .    35
6.1.2.2.  USE.  . . . . . . . . . . . . . . . . . . . . . . . . . .    42
6.1.2.3.  READ. . . . . . . . . . . . . . . . . . . . . . . . . . .    42
6.1.2.4.  WRITE.  . . . . . . . . . . . . . . . . . . . . . . . . .    43
6.1.2.5.  ZUSE. . . . . . . . . . . . . . . . . . . . . . . . . . .    44
6.1.3. -   . . . . . .    44
6.1.4.    .  . . . . . . . . . . . .    46
6.2.  .  . . . . . . . . . . . . . . . . . . . . . . .    47
6.2.1.   . . . . . . . . . . . . . . . . . . .    47
6.2.2.    .  . . . . . . . . . . . .    47
6.2.3.    .  . . . . . . . . . . . . . .    47
6.3.  .  . . . . . . . . . . . . . . . . . . . . . . . . . .    48
6.3.1.  . . . . . . . . . . . . . . . . . . . . . . . .    48
6.3.2.    .  . . . . . . . . . . . . . . .    48
6.3.2.1.  OPEN. . . . . . . . . . . . . . . . . . . . . . . . . . .    48
6.3.2.2.  USE.  . . . . . . . . . . . . . . . . . . . . . . . . . .    51
6.3.2.3.  CLOSE.  . . . . . . . . . . . . . . . . . . . . . . . . .    51
6.3.2.4.  WRITE  ZPRINT. . . . . . . . . . . . . . . . . . . . . .    51
6.3.2.5.  WRITE * . . . . . . . . . . . . . . . . . . . . . . . . .    52
6.3.2.5.1.  ZLOAD  READ. . . . . . . . . . . . . . . . . . . . . .    52
6.3.2.6.    .  . . . . . . . . . . . . . . . . . .    52
6.3.3.     .  . . . . . . . . . . . . . .    55
6.3.4.  . . . . . . . . . . . . . . . . . . . . . . . . . . .    56
6.3.4.1. .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . .    56
6.3.4.2.   .  . . . . . . . . . . . . . . . . . . . .    57
6.3.4.3.  .  . . . . . . . . . . . . . . . . . . . . . .    57

6.3.5.    .  . . . . . . . . . . . . . . . .    58
                                                      139



6.3.6.      .  . . . . . . . . .    59
6.4.   .  . . . . . . . . . . . . . . . . .    60
6.4.1.   . . . . . . . . . . . . . . . . . . . . . . . .    61
6.4.2.   .  . . . . . . . . . . . . . . . . . . . . . . . . .    61
6.4.2.1.  OPEN  USE. . . . . . . . . . . . . . . . . . . . . . . .    61
6.4.2.2.  CLOSE.  . . . . . . . . . . . . . . . . . . . . . . . . .    62
6.4.2.3.  READ  ZLOAD. . . . . . . . . . . . . . . . . . . . . . .    62
6.4.2.4.  WRITE, ZWRITE  ZPRINT. . . . . . . . . . . . . . . . . .    62
6.4.3.      .  . . . . . . . . . . . . . .    62
6.4.4.       .  . . . . . . . . . .    63
6.4.5.    PEN  USE  .  . . . . . . . . .    63
6.4.6.      .  . . . . . . . . . . . .    64
6.5.    .  . . . . . . . . . . . . . . . . . . . .    64
6.5.1.    . . . . . . . . . . . . . . . . .    65
6.5.2.      .  . . . . . . . . .    65
6.5.2.1.  WRITE  READ. . . . . . . . . . . . . . . . . . . . . . .    65
6.5.2.2.  ZPRINT  ZLOAD. . . . . . . . . . . . . . . . . . . . . .    65
6.6.   () ( DMC-11). . . . . . . . . . . . .    65
6.6.1.    . . . . . . . . . . . . . . . . . . . . . .    66
6.6.2.   .  . . . . . . . . . . . . . . . . . . . . . . . . .    66
6.6.3.    . . . . . . . . . . . . . . . . . . . .    66
6.6.4.      .  . . . . . . . . . . . . .    66
6.6.5.      . . . . . . . . . . . . . . .    68
6.6.6.       . . . . . . . . . . .    69
6.6.7.     . . . . . . . . . . . . . . . .    69
6.7.  .  . . . . . . . . . . . . . . . . . . . . . . . .    70
6.7.1.   .  . . . . . . . . . . . . . . . . . . . .    71
6.7.2.  . . . . . . . . . . . . . . . . . . . . . . . . . .    71
6.7.2.1.  OPEN. . . . . . . . . . . . . . . . . . . . . . . . . . .    72
6.7.2.2.  USE.  . . . . . . . . . . . . . . . . . . . . . . . . . .    72
6.7.2.3.  CLOSE.  . . . . . . . . . . . . . . . . . . . . . . . . .    73
6.7.3.  .  . . . . . . . . . . . . . . . . . . . . . . . . .    73
6.7.4.  .  . . . . . . . . . . . . . . . . . . . . . . . . . .    74
6.7.5.     .  . . . . . . . . . . . .    75
6.7.6.   . . . . . . . . . . . . . . . . . . . .    75
6.8.   .  . . . . . . . . . . . . . . . . . . . . . .    76
6.8.1.     . . . . . . . . . . . . . .    77
6.8.2.     .  . . . . . . . . . . . . . . .    78
6.9.  VIEW.  . . . . . . . . . . . . . . . . . . . . . . . . . .    78
6.9.1.  OPEN. . . . . . . . . . . . . . . . . . . . . . . . . . . .    78
6.10.  USE. . . . . . . . . . . . . . . . . . . . . . . . . . . . .    79
6.10.1.  VIEW   $VIEW.  . . . . . . . . . . . . . . . . . .    79
 7.    .  . . . . . . . . . . . . . . . . . . .    82
7.1.  . . . . . . . . . . . . . . . . . . . . . . . . . . .    82
7.1.1.  .  . . . . . . . . . . . . . . . . . . . . . .    82
7.1.2.  .  . . . . . . . . . . . . . . . . . . . . . . .    83
7.1.3.   .  . . . . . . . . . . . . . . . . . . .    83
7.1.4.  . . . . . . . . . . . . . . . . . . . . .    84
7.2.      '. . . . . . . . . . . . . . .    85
7.2.1.     '   .  . . . . . . .    86
7.2.2.     '   . . . . . . . .    86
7.2.3.   .  . . . . . . . . . . . . . . . . .    87
7.2.4.       '.  . . . . . . .    87
7.3.   . . . . . . . . . . . . . . . . . . . . .    88
7.4.      . . . . . . . . . . . .    90
7.4.1.      .  . . . . . . . . .    90

7.4.2.     . . . . . . . . . . . . . . . . . . . .    91
    140                          



7.4.3.      . . . . . . . . . . .    92
7.4.4.    .  . . . . . . . . . . . . . . . . . . . . .    93
7.4.4.1.    .  . . . . . . . . . . . . . . . . . . .    95
7.4.4.2.    .  . . . . . . . . . . . . . . .    96
7.4.4.3.     . . . . . . . . . . . . . .    98
7.4.4.4.     .  . . . . . . . . . . . . . .    99
7.5.     . . . . . . . . . . . . . . . .   100
7.5.1.      . . . . . . . . . . . .   100
7.5.2.       . . . . . . . . . . .   101
7.5.3.   .  . . . . . . . . . . . . . . . . .   103
7.5.4.      . . . . . . . . . . . . . . . . . .   103
7.5.5.     . . . . . . . . . . . . . . .   103
7.5.5.1.    . . . . . . . . . . . .   103
7.5.5.2.  '   .  . . . . . . . . . . . . . . .   105
7.5.5.3.    .  . . . . . . . . . . . . .   105
7.5.5.4.     .  . . . . . . . . .   107
 8.   . . . . . . . . . . . . . . . . . .   109
8.1.   . . . . . . . . . . . . . . . . . . . . . .   109
8.2.  .  . . . . . . . . . . . . . . . . . . . . . . . . .   109
8.2.1. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   109
8.2.2.  .  . . . . . . . . . . . . . . . . . . . . . . . . .   110
8.2.3.  . . . . . . . . . . . . . . . . . . . . . . . . . .   110
8.2.4.    .  . . . . . . . . . . . . . . .   110
8.3.   . . . . . . . . . . . . . . . . . . . . .   110
8.3.1.     . . . . . . . . . . . . . . .   110
8.3.2.    . . . . . . . . . . . . . . . . . . .   111
8.3.3.   . . . . . . . . . . . . . . .   111
 9.  .  . . . . . . . . . . . . . . . . . . . .   114
9.1.   . . . . . . . . . . . . . . . . . . .   114
9.1.1.     . . . . . . . . . . .   114
9.1.2.     . . . . . . . . . . . . . .   117
9.1.3.      . . . . . . . . . . . .   117
9.1.4.    .  . . . . . . . . . . . . .   118
9.1.5.     .  . . . . . . . . . .   118
9.1.6.   XECUTE   .  . . . . . . . . .   119
9.2.    . . . . . . . . . . . . .   119
9.2.1. ,   .  . . . . . . . . . .   119
9.2.2.   .  . . . . . . . . . . . . . . . . .   120
9.2.3.    .  . . . . . . . . . . . . .   121
9.2.4.    .  . . . . . . . . . . . . . . . .   121
9.3.    .  . . . . . . . . . . . . . . . . . . . .   124
 10.   .  . . . . . . . . . . . .   126
10.1.  . . . . . . . . . . . . . . . . . . . . . . . .   126
10.2.    . . . . . . . . . . .   126
10.3.  . . . . . . . . . . . . . . . . . . . . . . . . .   126
10.4.  .  . . . . . . . . . . . . . . . . . . . . . . .   127
10.5.  $ZCALL-.  . . . . . . . . . . . . . . . . . . . . . . .   127
10.6.   . . . . . . . . . . . . . . . . .   128
  . . . . . . . . . . . . . . . . . . . . . . .   136
